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THE SKOL PROGRAMMING LANGUAGE REFERENCE MANUAL 
S KQL; S umm ary an d Ge nealq sy 

The design of the SKOL language was subject to two fairly important con- 
straints. Firstly, all SKOL programs are translatable into standard FORTRAN 
(with one slight exception). Secondly, the translation from SKOL to FORTRAN 
is accomplished using the MORTRAN macro-translator [9, 10, 11, 12] and a set 
of text-substitution rules (macros) specifically designed to translate SKOL 
programs into FORTRAN. 

As a natural consequence of the first constraint, SKOL has a FORTRAN 
"underbelly" consisting of the syntax and semantics of identifiers (called 
symbolic names in FORTRAN), logical and arithmetic expressions, specifications 
of the types of variables, and the bounds of arrays, assignment statements, in- 
put-output statements, formats for conversion between binary and character 
representation of data, subprograms and parameter communication. Some of this 
underbelly is described in the following sections, but the user is urged to 
have FORTRAN documentation available to resolve questions at this level of 
language. Errors made at this level will most likely be reported by the FOR- 
TRAN compiler rather than the SKOL pre-compiler, so the user will have to under- 
stand these diagnostic messages. As a result of the second constraint, some 
of the syntactic aspects of SKOL are somewhat awkward and "strong" type-checking 
(as in PASCAL) cannot be performed with complete consistency. 

The major advantages which accrue as reward for accepting these two con- 
straints have been discussed by Cook and Shustek [9, 10], but we shall briefly 
mention them here: 

1) Standard FORTRAN compilers exist for many computers and, therefore, 
a language translatable to standard FORTRAN, by a translator imple- 
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merited in standard FORTRAN*, inherits a wide portability. 

2) Many larger computer installations have substantial libraries of 
programs including general utilities as well as application 
packages written in FORTRAN or in machine-language but callable 
from FORTRAN. 

3) Considerable effort has been invested by some major computer 
vendors to produce optimizing compilers for FORTRAN. 

4) Because the MORTRAN macro-translator is based on a general param- 
eterized text-substitution mechanism, any language L translated 
by it to FORTRAN can be extended by the user in the same way that 
the macro-translator extends FORTRAN to l_„ 

Given SKOL's FORTRAN underbelly and the extensibility inherited from the 
translation technique (i.e., MORTRAN), the remainder of the language is a hope- 
fully coherent assembly of features borrowed from existing languages or sug- 
gested in the literature, plus several features or modifications which appear 
to be novel. The following list includes the most characterizing features of 
SKOL and their origin: 
Features 



Expressions, formats, subprograms 
Named constants, text-substitution 
Nested blocks of statements 
Record structures and references 
User-defined scalar types 
Character data and string variables 
Flexible text output facility 
Keyword-parameter macro-procedures 
IF. . .THEN. . .ELSEIF. . .ELSE. . .ENDIF 
Scalar CASE statement 



Origin 

FORTRAN 

PASCAL, MORTRAN 

ALGOL-60 

ALGOL-W, PASCAL, PL/1 

PASCAL 

PL/1, ALGOL-W, PASCAL 

PL/1, PASCAL, SKOL 

Hardgrave [5] 

LISP, ALGOL-68 

PASCAL 



*M0RTRAN is so implemented 
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Situation CASE statement Zahn [6, 7, 8] 

LOOP... WHILE,.. ENDLOOP Dahl (see [6]) 

Infinite open-ended FOR statement SKOL 

Iteration statement for linked lists SKOL 

Hierarchical scalar types and subtypes SKOL 

User-defined character data type SKOL 

ELSE block in scalar CASE Hoare [13] 

Character substring contexts and replacement SKOL 

Coroutine processes Conway [3], 

Dahl and Hoare [4] 

Recursive routines AL60L-60 

For the convenience of those readers familiar with the borrowed features, 
we include here a brief description and discussion of the features thought to 
be novel. The idea to make the character data type CHAR user-defined rather 
than built into SKOL was an example of the cliche "Necessity is the mother of 
invention". The way that FORTRAN treats input/output of characters to and 
from text files necessitates additional processing to generate an internal form 
of character represented by a small integer. Otherwise, character CASE state- 
ments would be impossible. Since each character must be so processed, it costs 
little extra to allow the user to define the allowable set of character con- 
stants as well as their ordering within the scalar type CHAR. The only things 
built in are the name CHAR and the form (i.e., quote-brackets) used to denote 
most constants of the scalar type CHAR. It is natural to decompose a character 
type into subtypes like ALPHABET, DIGIT, ARITHMETIC, RELATIONAL, LOGICAL, PUNC- 
TUATION, BRACKETS, QUOTES, SPECIAL. A lexical scanner for a language translator 
might find it convenient to combine ALPHABET, DIGIT and the underbar character 
into a subtype identified as NAME_SYMBOL, and to further combine ARITHMETIC, 
RELATIONAL, LOGICAL, PUNCTUATION, BRACKETS and QUOTES into a subtype DELIMITER, 
etc. Because of the naturalness of this example as well as others, it was de- 
cided to generalize the scalar type idea to include nested subtypes and to in- 



tegrate this idea into the scalar CASE statement (see Section on "Scalar 
types.,,"). 

Although we borrowed from PL/1 the "varying«length character string with 
fixed maximum size," the PL/1 notation for substrings and associated pseudo- 
variables has never caught our fancy. The verbose notation "SUBSTR(CH,K,1)" 
to indicate the K-th character of string CH is especially unappealing, After 
considerable searching and discussion, we settled on a compact yet simple 
notation for denoting intervals of a sequence which allows empty intervals to 
be interpreted as positions before or after elements of the sequence. When 
used for string intervals, we call this notation a string-context, and an ar- 
bitrary string insertion, deletion or replacement can be uniformly specified 
as the replacement of a string-context by a string expression. The following 
string-contexts and associated meaning reflect the generality and compactness 
of the notation. The ' |' denotes substring length. 

Notation Meaning 

CH(K) CH(K) 

CH(1,..3) CH(l'), CH(2), CH(3) 

CH(3.,.|2) CH(3), CH(4) 

CH(3|,.,K) CH(K-2), CH(K-l), CH(K) 

CH(2.,,|0) before CH(2) 

CH(0|,,.2) after CH(2) 

CH(0|,..LEN6TH(CH)) after last character of string CH 

SKOL contains a text OUTPUT statement which is a combination of ideas from 
FORTRAN, PL/1 and PASCAL. In PL/1, there are three flavors of text output 
possible — edit-directed, in which conversion formats must be supplied explic- 
itly by the programmer; list-directed, in which the conversion format is im- 
plicit but dependent on the type of each variable; data -directed, in which the 
symbolic name of each variable is output before the value (under type-dependent 
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format). These three kinds of output cannot, however, be mixed in a single 
output statement, and the association between a variable and its explicitly 
supplied format is not textually apparent, the data and format lists being 
segregated rather than merged. The formatted output of FORTRAN shares this 
flaw. PASCAL has a WRITE statement in which each data item may optionally be 
followed by an explicit format, but the very useful data-directed output is 
not available and control formats are not as flexible as in FORTRAN or PL/1. 

The OUTPUT statement of SKOL requires a sequence of data and control items 
which will be processed in order, the control items causing some specific modi- 
fication of the current output position and the data items causing character 
output after formatting in any of the three ways discussed above. For example , 
OUTPUKSPAGE.^OX.IiIZ.M'.XCD.r/.^OX.Pd):,' #'); causes the following to 
happen on file $0UTPUT; 

Page eject; Indent 10 spaces 

Print integer I in field of width 2; Print ')' 

Print • X(I> '; Print X(I) with G12.5 format; Print ■;■ 

Skip to next line; Indent 20 spaces 

Print P(I) with G12.5 format; Print ' #' 

The infinite open-ended FOR statement allows iterations in which a scalar 
control -variable takes on an arithmetic progression of values, the termination 
of the iteration being accomplished via a situation exit within the iterated 
block. Appendix E contains a prime-generating program exhibiting the useful- 
ness of this feature. 

When sequences are represented by linked-lists implemented via records 
and reference fields, it is often required to scan through such linked-lists 
in a fashion analogous to the way a normal FOR statement can scan through the 
indices of an array. For this purpose a LINK iteration statement is included 
in SKOL; it causes a reference variable to take on a succession of reference 
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values defined by a field and terminating when a NIL reference is encountered. 



Syntax Notation and Syntax Flow Graphs 

To describe the syntax of the SKOL language, we employ an extension of 
BNF defined as follows: 

1) Reserved words and other terminal symbol strings of the language 
are enclosed in string quotes (e,g t , ' IF'» '+'), 

2) Syntactic constructs are named by identifying words sometimes 
including hyphens or operators, but no blanks (e.g., command, 
segment-body). 

3) The notation a-, a ? ... a means a, followed by a~, followed by 
ao» etc. 

4) The notation [a-. | a« | *•• I a ] means one of the a., 

5) The notation {6} C0Un indicates a number of repetitions of 3 

a 

separated by a, where count specifies a restriction on the 
possible number of $. If a is omitted, then the $s are juxta- 
posed without an extra separator. The count specification in- 
dicates a range of non-negative integers; we have found fre- 
quent need for "zero or one" which we write as 0,1 and "n or 
more" which we write as > n. 
For example, a rule for constructing identifiers which specifies one or 

more occurrences of letters A or B, followed by an optional $, can be described 

by: 

{['A' I'B']}^ 1 {'$'} 0,1 

Most of the syntax rules we will encounter can be \/ery nicely and com- 
pactly described in the form of syntax flow graphs and we shall so describe 
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the syntax of SKOL in Appendix B, A syntax flow graph is a directed graph with 
unique start and finish nodes, terminal strings enclosed in oval nodes, and 
named syntactic constructs enclosed in rectangular nodes. Any valid directed 
path through the graph, from start to finish, represents a valid symbol sequence 
for the defining flow graph. The following flow graph*is equivalent to the 
above identifier rule: 




Another example is the syntax described by: 

2:1 



{label}, , 
and by the flow graph: 



t . i 



block 



ate! 



o* 






<L> 



block 



-^p> 



-^ 



*These diagrams are not graphs in the strict sense but each such diagram 
corresponds to a proper directed graph whose edges correspond to "smooth" 
paths between nodes of the diagram. 
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Basic Format Rules for Program Text and Comments 

Program text is essentially free- form in SKOL with no significance assigned 
to ends-of-line or particular columns within lines. The single exception to 
this is that any line with a % in the first column is interpreted as a special 
control line, and no characters on this line are considered to be part of the 
program text (see Appendix C). 

The normal comment convention is described by: 

"" {non-"-symbolf° ,,M 
but this can be changed (via control line) to the safer: 

"" {non-"-symbol} "° ['" ' |end~of-line] 
so that comments never extend over line boundaries. 



Programs, Segments, Specifications and Actions 

A SKOL program consists of a number of program-segments followed by a 
terminator-line which contains %% in the first two columns. This can be des- 
cribed by: 

{program-segment} - terminator-line 
where each program-segment is: 

['BLOCKDATA' ':' {specification}- 1 'ENDBLOCKDATA' ';' | 

'MAIN 1 ';' segment-body 'ENDMAIN 1 V | 

'SUBROUTINE' Fident {parameters} * 1 « ;■ segment-body 'ENDSUBROUTINE' ';' 

'FUNCTION' Fident parameters Ftype ':' segment-body 'ENDFUNCTION' ';'] 

and segment-body is; 

>0 ^0 5:1 

{specification} - {statement-function} {command} 

{routine definition}" 
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and statement-f unction is; 

Fident '('. {F1dent}f ] , ')' ' = ' Aexpr ' ;' 
and command is: 

[action | definition | format-declaration | pragmat] 
and parameters are: 

'(' {Fident}? 1 , ')' 

An example of a statement function is: 

ROUND(X) = INT(X+SIGN(.5,X)b 
It should be prefaced by declarations: 

REAL X; INTEGER ROUND; 
The syntax for routine-definitions is described in the section on "Routines, 
Coroutines,.,.". Specifications and actions are precisely defined in Appendix 
A. An Ftype is defined by: 

[■REAL' | 'INTEGER* | 'LOGICAL' | 'COMPLEX'] 
and a definition is any CONSTANT, DEFINE or MACRO statement as described in 
the sections on "Constants, Definitions and Text Substitution" and "Macro Pro- 
cedures. . ,". 

A format-declaration is a FORMAT statement as described in the section 
on "General Formatted Input and Output" and a pragmat is a RUNCHECK or TRACE 
statement as described in the section on "Run-time Error Checks and Variable 
Traces". 



Statements, Blocks and Sequential Control 

All statements in SKOL (specifications and commands) are terminated by a 
semicolon. A block is a sequence of commands. Formally, it has the form: 
{command} 
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Notice that it may be an empty sequence of commands having no effect, A 
command is an action, a definition, a format-declaration or a pragmat (see 
Appendix A). 

The most basic control statement is the "if" statement with the form: 

'IF 1 {Lexpr ':' block}7E LSEIF , {'ELSE' ':' block} 0,1 'ENDIF' ';' 

where Lexpr is a FORTRAN logical expression,, 

The execution of this statement is performed by testing the sequence of 
one or more Lexprs until one of them is true and then executing the statements 
of the corresponding block, If all Lexpr are false, then the block after ELSE 
is executed; when no ELSE phrase is explicitly specified, it is just as if the 
empty block has been specified. 

Example : 

IF A< : 

J := J+l; P(J) := A; 

ELSEIF A>0 : 

J := J-l; R(J) ; = A; 

ELSE: 

OUTPUT (J,S(J)); 

ENDIF; 

Another basic control statement of rather recent vintage [6, 7, 8] is the 
"situation" case statement which has the basic form: 

•UNTIL'' {ident}^Q R , ':' block 'THENCASE' ':' 

{{situation}? 1 * ':' 'BEGIN' block 'END'}" 1 'ENDUNTIL* ';' 
where each situation is one of the idents in the UNTIL phrase and every ident 
appears exactly once as a situation. Within the block before THENCASE, 
"situation" statements of the form: 
situation ';' 
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will cause immediate termination of the block and then execution of whichever 
block is associated to that particular situation in the THENCASE part. 
Example; 

UNTIL MATCH OR N0_MATCH: 
FOR I = 1 TO N: 

IF X = TABLE(I) : MATCH ; ENDIF ; 
ENDFOR; 
NOJIATCH; 
THENCASE: 

MATCH : BEGIN COUNT(I) := COUNT(I) +1 ; END 
N0J1ATCH : BEGIN N := N+l ; TABLE(N) := X; 
COUNT(N) := 1; 
END 
ENDUNTIL; 

This example shows how multiple-exit loops can be handled using the situ- 
ation case. 

An auxiliary form of this statement allows the suppression of the case 
part when only one situation can occur; the abbreviated form is: 
'UNTIL' ident ':' block 'ENDUNTIL' V 
Example: 

UNTIL N0NJ3LANK : 
FOR I = 1 TO 81 : 

IF CH(I)n= ' ' : NONJLANK ; ENDIF; 
ENDFOR; 
ENDUNTIL; 

This program delivers the index of the first non-blank character in array 
CH on assumption that CH(81) 4 ' '. 
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The most basic repetetive statement in SKOL is the repeat statement of 
the form: 

'REPEAT' {Iexpr 'TIMES'} ' 1 ':' block 'ENDREPEAT' V 
where Iexpr is an integer expression whose value should be non-negative. If 
the optional TIMES phrase is absent, the repetition is infinite and, therefore, 
the programmer must satisfy himself that eventually some "situation" statement 
within the repeated block will terminate an outer block enclosing the entire 
REPEAT statement. 

Example : 

REPEAT 5 TIMES : OUTPUT ('*****' ) ; ENDREPEAT; 

An extremely useful repetitive statement is the "Dahl-loop" which sub- 
sumes the familiar "while-do" and "repeat-until" statements from structured 
programming. Its form is: 

'LOOP' ':' block 'WHILE' Lexpr ':' block 'ENDLOOP' ';' 

The first command sequence is executed and if Lexpr is false, the repe- 
tition is terminated; if Lexpr is true, then the second command sequence is 
executed, followed immediately by the first sequence and the test and possible 
termination, etc. 

Example: 

SUM := 0.0; COUNT := 0; 

LOOP : INPUT (1:15, X:F10.5); 

WHILE I > : 

SUM := SUM + X; COUNT := COUNT + I; 

ENDLOOP; 

OUTPUT ($SKIP2, COUNT, SUM); 

SKOL has two forms of "for" statements, one infinite and one finite des- 
cribed by: 

- 12 - 



I I.I 



'FOR' Ivar ' = ' Iexpr 'BY 1 Iexpr ':' block 'ENDFOR' ';' 
or 

'FOR' Ivar ' = ' Iexpr { 'BY' Iexpr} 0,1 'TO' Iexpr ':' block 'ENDFOR' 
where Ivar and Iexpr are any integer variables or expressions, respectively. 
Ivar may be a subscripted variable and the increment expression may be negative, 
In this context, integer includes any programmer defined scalar types as des- 
cribed later. 

The second form may fail to execute block even once if the iteration 
phrase specifies an empty arithmetic progression of integer values as in I = 1 
BY 1 to 0. In this case, the value of Ivar will be unchanged. If a non-empty 
arithmetic progression terminates normally, then Ivar will have the exact ter- 
minal value at completion of the FOR statement. A runtime error may occur if 
the terminal expression does not differ from the initial expression by an exact 
multiple of the increment expression. For example, I = 11 BY -2 TO is con- 
sidered to be in error. 

Example : 

FOR P(J) = BY -(INC+1) : ... ENDFOR; 

FOR IND = 2 BY DELTA TO N-l : X(2,IND) := 0; ENDFOR; 

FOR K = 1 TO 100 : P(K) := A(K) + B(K); ENDFOR; 
The default increment value is +1 when the BY phrase is omitted. 

The infinite form of FOR carries the same warning concerning termination 
as was given for the analogous infinite REPEAT. 

To cater for simple iterations in the most efficient way, a FORTRAN-! ike 
"DO" statement of the following form may be used: 

'DO' simplelvar '=' simplelexpr 'TO' simplelexpr ':' block 'ENDDO' ';' 
where simplelvar means non-subscripted integer variable and simplelexpr means 
a positive integer constant or non-subscripted integer variable. 
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Constants, Definitions and Text Substitution 

The programmer can declare that certain names are to be considered equi- 
valent to constant values using a constant-definition of the form: 
'CONSTANT' (i dent '=' value}? 1 , V 

9 

Whenever such an ident occurs subsequently in the program text (preceded 
and followed by blanks!), it will be replaced by the corresponding value. 

Example : 

CONSTANT PI = 3.14159, CM_PER_INCH = 2.54; 

X := (2.0* PI * RADIUS)* CM_PERJNCH , 

CONSTANT $ INPUT = 5, $0UTPUT = 10, $GENF0RM = G20.7; 

CONSTANT LIMIT = 50; 

REAL A( LIMIT , LIMIT ), B(2, LIMIT ); 

FOR I = 1 TO LIMIT : B(1,I) : = 0; ENDFOR; 

The constant-definition facility is really a special case of a more gen- 
eral definition statement whose form is: 

'DEFINE' "'• ' pattern "" ' = ' "" replacement MM ';' 
where pattern and replacement are sequence of characters and special "operators" 
as defined in the user documentation for the M0RTRAN2 macro-preprocessor [12]. 
Rather than repeat that description here, we will simply give several simple 
examples of the use of this text substitution facility. 

In its simplest form, a pattern is just a sequence of characters (with ' 
and # and @ represented by ' \ ## and @@, respectively) and replacement is simi- 
lar. 

Example : 

DEFINE ' INITIALIZE;" = ' ;A := 0; B := 1; P(2) := 3;' ; 

Every subsequent instance of the pattern will be replaced by a copy of 
the replacement. In this form, the DEFINE is a parameterless macro facility. 



- 14 - 



By placing # at various places in the pattern, and by placing #<5 where 
6 is a digit in the replacement, one can create parameterized text substitution 
rules. Indeed, SKOL is translated into FORTRAN by just such rules. 

Example : 

DEFINE , ;SWAP(#,#);' = ';R99999 := #1 ; #1 := #2 ; #2 := R99999;' ; 

SWAP(A(I,J),A(J,I)); 
The swap statement will be translated to: 

R99999 := A(I,J) ; A(I,J) := A(J,I) ; A(J,I) := R99999; 

Each # in pattern will match any character sequence which is properly 
parenthesized and contains no semicolon. Each #6 in replacement means the 
actually matching text for the 6-th # in pattern. 

Macro definitions may be placed in replacement text to create some very 
powerful effects. 

Example : 

DEFINE ' ;TRACE #;' = 

, ;DEFINE";#1:=##; ,, = "";" #1 := ##1 ; 
OUTPUT ( M "*****TRACE "",#1);";' ; 

TRACE Z; 

Z := F(Y)*Z; ... Z := A(2,K); 

The above 3-line macro definition essentially extends the language by 
adding a trace statement of the form: 

'TRACE' variable ';' 

This statement will cause all subsequent assignments to variable to be 
followed by a well -annotated dump of the newly assigned value. The statement 
TRACE Z; will be replaced by the following text: 

DEFINE ';Z:=#;' = 

,,, ;""Z := #1 ; 0UTPUT( ' '*****TRACE ",Z);'; 
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This macro-definition causes the statement Z :« F(Y)*Z; to be replaced 
by 

Z := F(Y)*Z; 

OUTPUT('*****TRACE ' ,Z); 

When Z := F(Y)*Z; is executed, a line like the following will be printed 
on $0UTPUT: 

*****TRACE Z = 114.72; 

The double-quotes " around ; are merely to prevent an infinite recursion 
in the rescan mechanism of M0RTRAN2. 

This trace facility is actually included in the SKOL language and its im- 
plementation requires little more than the above 3-line macro. 



Record Glasses, References and Dynamic Allocation 

A record is a structure consisting of a fixed number of components called 
fields , each identified by a field-identifier. Each field may be of any simple 
type or array thereof or may be a reference field pointing to another record 
(also possibly an array of such). 

A record class consists of a fixed number of records, all of the same 
form used as a pool for the dynamic creation and release of record variables 
directly accessible to the programmer. Each record class is named and intro- 
duced via the specification: 

'RECORD' 'CLASS' '(' +Iconst ')' 'OF' Fident4 ':' {field-group VF 1 



'ENDRECORD 



i i.i 



where each field-group is of the form: 

['REF' | Ftype | 'CHAR'] ':' {ident {array-bounds} 0,1 }* ] , 
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array-bounds is: 

'(' {+Iconst}^, ')' 

» 

and Fident4 is a FORTRAN symbolic name of 4 characters or less. 

Example : 

RECORD CLASS (100) OF PERS: 
REF : NEXT, FATHER; 
INTEGER : AGE, ID_NUMBER,LEAVE(12); 
REAL : PAY ; 
LOGICAL : MARRIED ; 
CHAR : NAME (15) ; 

ENDRECORD; 

A reference variable identifies a record of a particular class once such 
a record has been dynamically created and associated with the variable. Each 
reference variable is restricted to refer to records of only one class and is 
introduced by a specification: 

'REF' 'TO' class ':' (Fident (array-bounds) 0,1 >7 1 , ';' 

Example : 

REF TO PERS : WORKER, FORMAN (6), P, LAST; 

Before any use can be made of a record class, it must be initialized by 
a statement of the form: 

'MAKEAVAIL' class ';' 

The effect of this statement is to return all records of the designated 
class to the available pool ready for re-use. 

To allocate a new record to a reference variable requires a statement of 
the form: 

'NEW reference ' ; ' 

Analogously, a record is released by: 

'FREE' reference ' ; ' 
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In each case, the variable designated must have been declared as a ref- 
erence to some record class; otherwise, a diagnostic message will ensue. 

To access a field of a record associated with a reference variable re- 
quires a special form called a field-designator: 

i0i «(» reference '.' field ')' 

The reference and/or the field may be subscripted if that corresponds to 
the declarations. If the field is not among those declared for the record 
class to which the reference has been bound, then an error diagnostic is given. 

Notice that designators like @(@(P.NEXT).VAL) are not legal and must be 
replaced by 

Q := @(P.NEXT) ; ... @(Q.VAL) ... 
where Q has been properly declared as REF to the class of records having a VAL 
field. 

Example: 

MAKEAVAIL PERS ; NEW WORKER ; 

@( WORKER. AGE) := 25; ©(WORKER. LEAVE(3)) := 2; 

FORMAN(l) := WORKER ; ©(WORKER. NAME (1 )) := 'Z' ; 

IF G>(F0RMAN(1 ). LEAVE (K)) >2 : ... ; 

FREE WORKER; 

When a portion of program text concentrates its attention on a particular 
record, it is possible to abbreviate the field-designators by employing a "WITH' 
statement of the form: 

'WITH' reference ':' block 'ENDWITH' ';' 

Inside the block, any fields of the record identified by the designated 
reference may be accessed by the shorter form: 

'(a* '.' field ' ' 
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Example : 

WITH WORKER : @,AGE : = 25; (3,LEAVE(3) ;* 2; ENDWITH; 

There is a standard identifier NIL which indicates an undefined reference 
value and is often used to mark the ends of linked lists. To traverse a linked 
list defined by a REF field in some record class, there is an analogue of the 
familiar for statement having the form: 

'LINK' reference '=' reference 'BY' field ':' block 'ENDLINK' •;' 

The iteration is discontinued at the first NIL value encountered (which 
may be the first). 

Example : 

@(F0RMAN(6),NEXT) := NIL; SUM := 0; 

LINK P = WORKER BY NEXT : SUM := SUM + @(P.AGE) ; ENDLINK; 

A record class is actually an array of records so if the programmer de- 
sires, he may use it as a simple array while avoiding any dynamic allocations 
vis a vis the record class. Access to the records must still be through vari- 
ables declared REF TO class, but these variables can be treated as integers, 
which they actually are. 

Example: 

"ASSUMING NO RECORDS CURRENTLY ACTIVE FROM PERS" 

LAST := NIL ; 

FOR WORKER = 1 TO 50 : 

(a(WORKER.NEXT) := LAST ; LAST := WORKER ; 

ENDFOR; 

TOP := 50; 

LINK P = TOP BY NEXT : 

WITH P : (a.NAME(l) := '#';@.AGE := 20; ENDWITH; 

ENDLINK; 
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Scalar Types, Subtypes, anp Case Statements 

The programmer may introduce a new finite ordered primitive type (called 
a scalar) by naming it and supplying a list of the unique identifiers which 
denote the constant values of the new type. The values of the new type may be 
arranged in a hierarchy of groups or named subtypes. The definition of a new 
type takes the form: 

'TYPE' ident ' = ' list-of -subtypes ';' 
where list-of -subtypes has the form: 

[empty | •('•{ subtype }T ] . ')'] 
and subtype is 

[ident | ident '=' list-of-subtypes | char-const] 
The possibility of an empty list-of-subtypes is restricted to the CHAR scalar 
type and char-const is also so restricted. The definition of CHAR will be dis- 
cussed later in this section. 

Example : 

TYPE AUTO = 

(GENJQTORS = ( CHEVY, PONTIAC, CADDIE) , 

FORD = (MUSTANG, MERCURY= (MONTEREY, COUGAR) ) , 

FIAT = (COUPE, S128, $131) ); 

This declaration specifies that a value of type AUTO will be a value of 
one of the subtypes GEN_M0T0RS, FORD or FIAT. The values of subtype GEN_M0T0RS 
are the three constants CHEVY, PONTIAC and CADDIE. FORD consists of MUSTANG 
and a subtype MERCURY, which itself consists of two constants MONTEREY and 
COUGAR, finally, the subtype FIAT has three constant values as indicated. In 
subsequent use, these scalar constants must be preceded and followed by a blank! 

Scalar variables are declared in a fashion similar to normal FORTRAN dec- 
larations: 

scalar {Fident {array-bounds} ' }7 ■ ';' 
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Example ; 

AUTO FAMILY(2) , MINE ; 

The scalar case statement allows one from a group of blocks to be executed, 
the selection being determined by the current value of some scalar variable. 
The form of the statement is: 



'CASE' scalar-var ' :' scalar 'OF 



{{label}; 1 i ':' 'BEGIN' block 'END'}" 1 {'ELSE' ':* 'BEGIN' block 'END'} 1 

'ENDCASE' ';' 

where scalar may be the name of any scalar type or subtype, and each label is 

a constant or subtype of that type. In the latter case, it is simply an a 

viation for the list of all constants included in the subtype. 

Example: 

CASE FAMILY (K) : FORD OF 

COUGAR, MUSTANG : BEGIN J : = J+l ; END 

ELSE : BEGIN J := J-l; END 

ENDCASE; 

CASE MINE : AUTO OF 

MERCURY, COUPE : 

BEGIN ... END 

SI 28 : 

BEGIN ... END 

GEN_M0T0RS : 

BEGIN 

CASE MINE : GEN_M0T0RS OF 

PONTIAC, CADDIE : BEGIN ... END 

ELSE : BEGIN ... END 

ENDCASE ; 

END 
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ELSE ': "MUSTANG AND SI 31" 
BEGIN ... END 

ENDCASE; 

Each constant of the indicated scalar must occur exactly once as a label 
unless an ELSE block is present. In the latter case, ELSE collects all con- 
stants not explicitly listed. If the scalar-var is not within the range of 
values of scalar, an error has occurred which will be diagnosed at run-time if 
the runcheck option is enabled for case statements. 

In the first example above, the only valid labels are those constants in 
subtype FORD, that is, MUSTANG, MONTEREY and COUGAR. As a consequence, the 
ELSE is identical to MONTEREY. The order of occurrence of labels is completely 
irrelevant except for ELSE which, if present, must come last. 

In the SKOL language, the character data-type is not built-in as a lan- 
guage-defined primitive but is recognized as a special case since most constants 
have the special form of a single character symbol enclosed in apostrophes ('). 
The CHAR scalar type is declared explicitly by the programmer as a scalar type 
and can be hierarchically substructured like any other scalar. Most constants 
conform to the normal convention for characters, however. 

To ease the burden for the programmer, there are some character subtypes 
built-in. The subtype ALPHABET consists of the capital letters 'A' through 'Z' 
and DIGIT means '0' through '9'. In addition, certain installation-dependent 
subtypes may be supplied; for example, RELATIONAL = ('<', ' = ', '>') or ARITH- 
METIC = (' + ', '-', '*', '/'). 

A special facility is available to ask if a given scalar value is con- 
tained in a particular scalar subtype. The form of the expression is: 

'IN 'scalar '(' scalar-expr ')' 
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Example : 

IF IN_DIGIT(CH(K)) ; .,, 

The following three functions are also Included: 
FIRST , LAST (scalar) 
VALUE (digit-expr) 
For example, FIRST (ALPHABET) = 'A', LAST (DIGIT) = '9' and VALUE ('3')= 3, 
Example: 
TYPE CHAR = 

(NAME_SYMBOL = ( ALPHABET^ DIGIT=, '_'), 
DELIMETER= 

(ARITHMETICS ' + ', '-', '*', '/') 
RELATIONAL=('<' , ' = ', '>■), 
L0GICAL= ('-»', '&', 'I'), 
PUNCTUATION^',', ';', ':', ' ', '.', '?'), 
BRACKETS '(' , ')'), 

QUOTES"", "*') ), 
SPECIAL=('$', '@', '#', '%'), 

EOL "NOTICE THAT I DENTS ARE OKAY FOR CHAR CONSTS" 

); 

This flexibility of the character data-type allows the programmer to 
arrange the various character subtypes and special characters in an order that 
corresponds to their use in a particular application. 

The declaration for the CHAR type must be followed by three constant defi- 
nitions: 

CONSTANT BITS_PER_BYTE = ?, 
BITS_PER_WORD = ?, 
SHORT BYTE = ?; 
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where the value of SHORT_BYTE should be 

2 **(BITS_PER_BYTE - 1) 
The user must also supply the auxiliary subprograms RDSTR9, WTSTR9, INIT99, 
INCV99, IRPL99, IRPL98 and IDEL99 which are used to implement the character 
facilities (see Appendix D and sample programs fn Appendix E). 

Special functions $INCHAR and $0UTCHAR are provided to map external char- 
acters to their internal integers and vice versa; for example, with the above 
declared CHAR and I containing character 'B' read under Al format, we get 
$INCHAR(I) = 2 and $0UTCHAR( '_' ) output under an Al format is '_' . 
Each user subprogram which uses $0UTCHAR or the C format in an OUTPUT command 
must contain the specification: 

'CHARJttMMON 1 ';' 
and before any character manipulation is performed, the following initializing 
command must be performed: 

•CHAR SETUP" ';' 



Charactfr Strings, Cqntfxts and String Modification 

In addition to fixed-length character arrays like CHAR CARD(81), it is 
possible to have varying length character strings with a fixed maximum length 
called the size. They are declared in the form: 

'STRING' (Fident '(' +Iconst ' ) ' )V , ';' 

Example : 

STRING NAME(30), WORD(IO); 

Built-in functions SIZE (string) and LENGTH (string) are available to 
obtain the size and current length of any string. Actually, the latter is an 
integer variable which can be changed by assignment, but is intended to be im- 
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plicitly reset by string updating statements. Prior to use, the string should 
be initialized to the empty string by the command: 

DELETE string; 
which is described in the following. 

To designate substrings of a string, there is a notation for string-con- 
text whose form is one of: 

string '(• index {'...' index} 0,1 ')« . 



or 



or 



string '(' index » ...' '|' length ')' 



string '(' length ' |' '...' index ')' 
where index means a valid integer index into the string and length is a posi- 
tive integer. 

The first form denotes the substring consisting of all indices between 
the two limits inclusive. If there is only one, then the limits are equal. 
The second form denotes a substring of the indicated length which begins with 
the indicated index. The third form denotes a substring of the indicated 
length which ends with the indicated index. 

Example : 

NAME (2 ... K+2) 

WORD (4 | ... LENGTH(WORD)) 

NAME (1 ... |5) 

WORD (5) 

Notice the second example which denotes the last four characters of the 
current value of the string WORD. 

The notation introduced above for substrings can be used to denote any 
empty position in or at the ends of a string if the proper meaning is attached 
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to substring denotations involving a length of 0. If we redefine the notation 
(index .., | length) to mean the subsequence (possibly empty) beginning just 
before index and having the given length, then the notation 

WORD (2 ... | 0) 
denotes the position before the second character of WORD. 

Because of the symmetry of our notation, the extremes of WORD can be 
described by the following two denotations 

WORD (1 ... | 0) 
and 

WORD (0 | ... LENGTH (WORD)) 
The reason for wanting to denote empty substrings within a string is so 
that a single all-powerful replacement command can be indicated by a string 
context and a replacing string expression. 

The general string replacement statement takes the form: 
"REPLACE" [string-context | string] 'BY' 
['NULL' | char-expr | string-context] ';' 
Example: 

REPLACE WORD (2 ... 4) BY 'Z' ; 
REPLACE WORD (1 ... | 0) BY NAME (3 | ... K); 
REPLACE NAME BY WORD (2); 

Arbitrary substring "deletions" can be accomplished by replacement using 
NULL and "insertions" using an empty (length = 0) string context. SKOL con- 
tains the following statement forms for this: 

'DELETE' [string | string-context] ';' 
'INSERT' [char-expr | string-context] 

['BEFORE' I 'AFTER'] string '(' index ')' ';' 
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Example : 

DELETE WORD ; DELETE NAME (6 ... LENGTH (NAME)); 

INSERT NAME (1 ... | 3) BEFORE WORD (2); 

INSERT CH AFTER WORD ( LENGTH (WORD)); 

For reasons of efficiency, there is a concatenation statement which is 
implemented separately from the general replacement command. The form of the 
statement is: 

'CATENATE' string-expr 'ONTO' string ';' 
where string-expr is: 

{[char-expr | string-const | string | string-context] }7 &( 

and '&' indicates concatenation. 

Example : 

CATENATE '@"B» & CH & NAME (1 ... | 2) ONTO WORD; 

CATENATE NAME (2 ... 4) ONTO WORD; 

Because the conversion between external character format and internal 
integers is not defined by FORTRAN but rather by the programmer's type declar- 
ation, special facilities are required for input and output of character string 
data. These are of the form: 

['READ' | 'WRITE'] 'STRING' {'(' file «)'} ' 1 

string {'(' index '...' index ' )'} * ';' 
The default index range is 1 ... LENGTH (string) for WRITE and 1 ... SIZE 
(string) for READ. 

Example : 

STRING CARD (81); 

READSTRING (MYFILE) CARD (2 ... 81) ; LENGTH(CARD) := 81; 

CARD (1) := T ; "FOR PAGE-EJECT" 

WRITESTRING CARD; "DEFAULT RANGE = 1 ... LENGTH(CARD)" 
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Notice that READSTRING does not set the LENGTH; the standard files for 
text input and output are the defaults and the initial character is used for 
control on output. In the example above, the first 80 characters of the next 
record of the file named MYFILE are converted to internal format and stored 
into the string CARD at positions 2 through 81. This character sequence is 
then listed after a page eject on the standard print file* 

It is quite easy for the programmer to implement a MOVE statement which 
has the form: 

'MOVE' string-context 'TO' string-context ';' 
and causes a substring of one string to replace a string-context of a second 
string while being deleted from the first string. 

The following macro-definition will implement such a MOVE statement: 
DEFINE ' ;M0VE # TO #;' = 

'; REPLACE #2 BY #1 ; DELETE #1 ; ' ; 
The meaning of the # within a define statement is explained in the section on 
"Constants, Definitions and Text Substitution". 

There is a special string assignment statement of the form: 
'#' string ':=' string-expr ';' 

Example : 

#NAME := 'JONES' & BLANK & 'JOHN' ; 

#N0THING := " "SAME AS DELETE" 



Routines, Coroutines, Procfssfs and Recursion 

Simple parameterless routines can be defined and executed at different 
places within a major program segment (the subprograms of FORTRAN). The rou- 
tine definitions are placed after the RETURN statement for that segment. The 
form of the routine definition is simply: 
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'ROUTINE' ident ':' block 'ENDROUTINE' V 
To invoke execution of such a routine requires: 

'EXECUTE' routine ';' 
Example ; 

EXECUTE IN_CARD; 

ROUTINE IN_CARD : ... ENDROUTINE; 

It is also possible to declare a process to consist of several cooper- 
ating coroutines which resume one another or suspend the entire process. The 
main program (i.e., body of the segment) controls resumption of the suspended 
process and also decides which coroutine will be invoked first. The process 
declaration has the form: 

'PROCESS' ident ' = ' '(' {ident}* 1 , ')' ';' 
where the list of idents refer to coroutines to be defined later. To initialize 
a process so that each constituent coroutine is asleep at its beginning, and 
so that the initial resumption of the process invokes a particular coroutine 
requires: 

'START' process 'AT 1 coroutine ';' 
The main program resumes the process by: 

'RESUME' process ';* 
and any of the constituent coroutines suspend the process in favor of the main 
program by: 

'SUSPEND' process ';' 
Within a coroutine, its own execution may be postponed in favor of another co- 
routine by: 

'RESUME' coroutine 'FROM' coroutine ' ; ' 

The coroutines are defined (like routines) after the RETURN from the program 

segment and the form is: 

'COROUTINE' ident ':' block 'ENDCOROUTINE' ';' 
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Example : 

PROCESS LIVE = (PRODUCE, CONSUME); 

START LIVE AT PRODUCE; 

RESUME LIVE; 

COROUTINE PRODUCE : ... RESUME CONSUME FROM PRODUCE; ... ENDCOROUTINE; 

COROUTINE CONSUME : 

... RESUME PRODUCE FROM CONSUME; ... SUSPEND LIVE ; ... 

ENDCOROUTINE; 

Each RESUME process in the main program sends control back to the place 
where the last SUSPEND process was executed unless a START statement has more 
recently been executed. In the latter case, control passes to the beginning 
of the coroutine named in the START statement. Because of this protocol, it 
is convenient to view the group of coroutines (i.e., the process) as a "semi- 
coroutine" of the main program; there is a master/slave relationship between 
the main program and the coroutine process, but each subsequent resumption of 
the slave process retains the context at termination of its previous period 
of activity. Our use of the word "semi-coroutine" is similar to but not quite 
the same as found in Dahl and Hoare [4], 

If execution of a coroutine reaches the end of the block defining its 
body, a terminal error message is generated and the program aborts. 

Some routines may have integer "value" parameters, local integer vari- 
ables, and may freely invoke themselves recursively. Such routines must be 
predeclared in a specification of the form: 
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•RECUR" '(V+Iconst ')' ' : ' (ident { ' ('{ '*'>^ 1 , 'J'} ' 1 }; 1 , ';' 

» » 

Example : 

RECUR (100) : TREE (*), WHAT (*,*), P; 

This example introduces three potentially recursive routines, TREE 
having one parameter, WHAT having two parameters, and P without parameters. 
A stack of maximum size 100 will be used to implement the recursive executions 
of these routines. 

The subsequent routine-definitions for such recursive routines have the 
form: 

'ROUTINE' identCCddentrf 1 , , )"} ' 1 {'LOCAL' ' ( '{ident}^ 1 ■ ')'} 0,1 ':' 

block 'ENDROUTINE' ';' 

Example : 

ROUTINE TREE (TOP) LOCAL (LS0N,RS0N): 
...ENDROUTINE; 

In this example, TREE has one parameter TOP and two local variables 
LSON and RSON whose values will remain intact over recursive calls, etc. 

Recursive routines are invoked by execute statements of the form: 

■EXECUTE' routine {'('{expr It 1 ,' )'} 0,1 V 

» 

Example : 

EXECUTE WHAT (2-J, CH); 

The expressions are calculated and assigned to the formal parameters at 
entry to the routine body. This mode of parameter communication is commonly 
refered to as "call by value". 

The use of recursive routines is subject to one rather annoying restric- 
tion. If a FOR statement or DO statement in a recursive routine contains 
potentially recursive calls with different increments or final values for the 
iteration phrase, then unpredictable and usually incorrect behavior will re- 
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suit. Safety is provided by the use of LOOP ... ENDLOOP, making the control, 
increment, and limit variables LOCAL to the routine. 

Appendix E contains a SKOL program which closely resembles a PASCAL pro- 
gram described in Wirth's recent book [14] to illustrate the use of recursive 
routines in conjunction with recursive data. 

To consistently integrate the recursive capability with the situation 
terminations provided in the situation case statement, the following extension 
is available. A single-situation UNTIL statement may have the form: 

'UNTIL' {"GLOBAL 1 ) 0,1 ident ':' block 'ENDUNTIL 1 ';■ 
and the presence of the word GLOBAL will cause all situation terminations with 
the indicated name to reset the recursion stack to its status at entry to the 
UNTIL statement. 

Major subroutines (inherited from FORTRAN) are invoked by: 
'CALL" subroutine {'('{argH 1 , 'J'} ' 1 ';' 
where arg is defined in Appendix A. 



Macr o Pr ocedures,, Keyword P arameters a nd Defaults 

The programmer may define macro procedures with formal parameters some 
or all of which have specified default actual parameters; these macro procedures 
are invoked by a calling sequence in which the correspondence between formal 
parameters ("keywords") and actual parameters is explicit and non-positional. 
Unspecified formal s are given the defaults associated with them in the macro 
definition; if no default was specified, then an error message ensues. 

A macro procedure definition has the form: 

'MACRO' ident ' ('{ident {'=' Xexpr} 0,1 K 1 , ')' ' = ' "" text ,,,, ';' 

» 

where text is a piece of program text. Xexpr is explained below. 
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Example : 

MACRO ORDER (REL=<, X,Y) = 

'; IF NOT (X REL Y) : SWAP ( X , Y ); ENDIF; » ; 

A macro procedure invocation has the form: 

macro '(' {keyword ' = ' Xexpr}, ,')' ';' 

> 

where each keyword is one of the formal parameters in the definition of macro. 
Example : 

ORDER (X=A(2) , Y = B(K)); 
ORDER (REL = >=, Y = T, X= P(J)); 

These two statements are translated into the following program text: 
IF NOT (A(2) < B(K)): 

SWAP (A(2), B(K)); ENDIF; 
IF NOT (P(J) >= T) : 
SWAP (P(J) 9 T); ENDIF; 
Notice that formal parameters can represent relations, operators, state- 
ments and procedure names as well as variables and expressions. An Xexpr is 
an extended expression which includes these. 



General Formatted Input and Output 

SKOL provides input and output statements to and from text files, em- 
ploying a syntax in which the data format associated with a variable is text- 
ually adjacent to the variable rather than being in a separate list. All con- 
trol format items occur within the sequence of data items at the appropriate 
positions. 

In the case of output, each variable may be printed according to an ex- 
plicitly specified format, an implicit format appropriate to the type of vari- 
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able or an implicit format preceded by the name of the variable and followed 
by a semicolon. 

The input statement takes the form: 

■INPUT" ' ('{[':' control | variable ':' data-format] }V t ')' V 
where control is 

EC/'}- 1 I {+Iconst} 0,1 'X'] 
and data-format is a valid FORTRAN data format item. 

Example : 

INPUT (:5X, J : 13,' A(J') :F10.5, :/, :X, WHAT : LI); 

The general output statement has the form: 

'OUTPUT' '(' {[':' carriage-control | ':' control | output-item]}* 1 , ')' ';' 
where carriage-control is: 

['$PAGE' | '$SKIP' | '$SKIP2' | '$0VER'] 
and output- item is: 

[variable {':» {[data-format | 'C']} 0,1 } 0,1 I output-text] 

When variable is followed simply by : then the general type-dependent 
format is used, and when variable stands alone, then its name is printed before 
the data. Output-text is printed as is. The carriage-controls should come in 
first position or after a '/' control item. In first position, the colon may 
be omitted before a carriage-control. The format specification :C indicates 
conversion of internal character (CHAR) representation to external text. 

Example : 

0UTPUT($PAGE,:3X,J:,A(J),:5X,CH:C,'$'), 

This statement will print on the first line of a new page (assuming J=42, 
A(J)=142.36, and CH='P') 

42 A(J) = 142.36; P$ 
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The input and ol' <^ statements read from and write to text files $INPUT 
and $0UTPUT respectively, Tneae file identifiers are associated with the 
standard text input and output files unless the programmer requests otherwise 
by redefining them in the program text (see section on text substitution). 

The general format used in the OUTPUT statement is governed by the cur- 
rent definition of $GENF0RM which is FORTRAN format G12.5, but can be rede- 
fined by the programmer. 

The user should especially note that the carriage-control character will 
be set to blank if no explicit carriage-control has been specified! 

If a particular sequence of data-format and control items is used in 
several places in a program, then this "format" may be named and defined by a 
FORMAT definition of the form: 

'FORMAT' ident '=' '(' format-list ')' V 
where format- list is: 

{[control | data-format | output-text | +Iconst '(' format-list ')']}, , 

These formats can then be used in read and write statements of the form: 

['READ' | 'WRITE'] '(' file ',' format ')' (variable^ , ';' 
where format is the name of a previously defined format sequence. 

Example : 

FORMAT PERSON = (IX, 215, F10.2); 

READ ($MYFILE , PERSON) @( WORKER. AGE) ,J,@.PAY ; 

FORMAT PRETTY = (T, IX, 13, ' ) ', F10.5,/,' '); 

WRITE ($0UTPUT , PRETTY) K, B(K); 
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AijctMentatiqn Statements 

Because of the ubiquitous requirement to update the values of variables 
by incrementing or decrementing their current values, the SKOL language pro- 
vides an augmentation statement of the form: 

■ • E'tNCR" | 'DECR'] variable '{'BY 1 expr) ' 1 ';' 
The BY phrase defaults to BY 1 if omitted, and INCR, DECR mean, respectively, 
"add to", "subtract from". 



j- t ime E rror Checks a nd V ariable T races 

The SKOL/FORTRAN precompiler will insert run-time consistency checks 
into the target FORTRAN code for certain statement forms, but the decision of 
when and where to insert checks is under very precise user control. For this 
purpose, there is a runcheck option statement of the form: 

'RUNCHECK' '(' {C-'} ' 1 ['ALL* |'F0R' |'CASE'| 'UNTIL' I'TRACE'I^ 1 , ')' ';' 
A minus means suppress checks for the designated class of statements and the 
absence of minus means insert checks until told otherwise. The ALL means all 
the others. When TRACE is enabled, major control flow is traced by printout. 
This means that CALL, EXECUTE, RESUME and SUSPEND generate output messages, and 
for each repetition of a LOOP. . .WHILE. . .ENDLOOP, REPEAT. . .ENDREPEAT, FOR.. .ENDFOR 
or LINK.. .ENDLINK an output message is generated. 

It is quite easy to suppress run-checks for short time-critical loops 
while leaving them on for less critical portions of a large program. 

A variable tracing statement is available of the form: 
'TRACE' {variable}? 1 , ';' 

and causes subsequent assignments of new values to variable to be accompanied 
by a "dump" of the variable name and the new value. The section on "Constants, 
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Definitions, and Text Substitution" describes how this is accomplished. 

Example : 

RUNCHECK (ALL, -FOR); 

TRACE A(K),(s».VAL,P; 

These two statements cause run-time checks to be inserted everywhere but 
in FOR statements, and tracing of all assignments of the form A(K) := expr, 
@.VAL := expr or P := expr. Implicit assignments generated by the implemen- 
tation of iterations and the NEW statement are also traced. 



Error Diagnostics 

Every effort has been made to diagnose errors in the non-FORTRAN features 
of SKOL at the time of the SKOL to FORTRAN precompilation. The degree to which 
this has been achieved is somewhat surprising for precompilers, not to mention 
macro-implemented precompilers. In particular, the compile-time checks on the 
use of records, references and the CASE statement approach what could be accom- 
plished by a very good compiler. Appendix F contains a sample of SKOL diag- 
nostics with explanations. Appendix H explains messages which diagnose serious 
control syntax errors. 

Run-time error messages are issued for zero increments in FOR statements, 
final value not exact in iteration phrases of FOR statements, terminations of 
UNTIL blocks without encountering a situation statement, expressions out-of- 
range in CASE statements, space exhausted in record classes, illegal termination 
of coroutines, attempts to read or write illegal characters, character string 
modifications which exceed the maximum size allowed, collision in character 
mapping (usually a duplicate occurrence of the same character constant in the 
CHAR type specification), stack underflow and overflow in invocations and re- 
turns for recursive routines. 
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Restrictions and Extensions Dependent on FORTRAN 

Whenever Fident appears in the syntax of SKOL, it means any valid iden- 
tifier (symbolic name) in the FORTRAN language dialect being used. However, 
if portability is desired, each Fident should be of form: 

letter {[letter|digit]} '" 5 
where a...b means any integer between a and b inclusive. 

The name of a record class must be an Fident4 which must be a valid 
FORTRAN identifier after the appending of two digits. For standard FORTRAN, 
this means: 

letter {[letter|digit]} 0, • ' 3 
Other names indicated as simply ident should conform to: 

[1 etter | speci al -symbol J { [1 etter | speci al -symbol | di gi t] >" 
where special -symbol is any non-alphanumeric character which is not used as a 
meaningful symbol of FORTRAN or SKOL. The simplest rule is to avoid everything 
in the 48-character FORTRAN set, ':', •;', '(a 1 , ,,M , "I', '&' and '-* (but '$' 
is okay), 

A few FORTRANs (including the standard) do not allow an integer subscript 
expression to be itself a subscripted array element (e.g., A(P(K)) is illegal). 
When such a restriction is in effect, it implies the following restriction in 
SKOL: 

Reference variables may not be arrays 
For example, REF TO class: S(5); would be illegal. Note that @(@(P.NEXT) 
.AGE) must be expressed by use of a temporary reference variable Q, as follows: 
Q := (a(P.NEXT); 
... @(Q.AGE) ... 
Some dialects of FORTRAN (notably IBM FORTRAN IV) allow the programmer 
to indicate what should be done in case an input (i.e., READ) statement encoun- 
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ters an end-of-file or the attempted read results in an error. In this case, 
SKOL is extended so that the new syntax of READ statement (not including 
string version) is: 

•READ" '(' file V format "{', ' 'END' '«' situation} 0,1 

{',' •ERR' ' = ' situation} 0,1 ')' {variable} 2 ; , V 

» 

Other non-standard features available in a local dialect of FORTRAN may 
be used with a certain loss of portability. Such features might include mul- 
tiple ENTRYs to a subprogram, direct-access I/O, etc. Warning: the direct- 
access I/O available in IBM FORTRAN IV may not be used in SKOL because that 
extension uses the single-quote character as a separator. Such statements can 
be used only if the SKOL precompiler is turned off temporarily (see Appendix C). 

The optional data portion of a variable specification is not strictly 
standard FORTRAN so on some compilers the programmer will be forced to use the 
separate FORTRAN DATA statement. 

Items of the form 

variable ':' data-format 
may be replaced by 

iterated-data ':' +Iconst '(' format-list ')' 
in READ, WRITE, INPUT and OUTPUT commands where iterated-data has the form: 
'(' 'FOR' simplelvar ' = ' simplelexpr 'TO 1 simplelexpr ':' 
{[iterated-data | variable]}; < ')' 

Example : 

INPUT ((FOR 1=1 TO 3 : (FOR J=l TO 3 : I,J,A(I,J))) : 3(3 (2I2,F10.5,5X) ,//)) ; 

Coroutine resume and suspend are not legal within DO iteration statements 
for some FORTRAN compilers (e.g., WATFIV) which don't implement the extended DO. 
The remedy is to simply change such a DO to the more general FOR statement pro- 
vided by SKOL. 
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Matrix Operations: An Example of Language Extension 

To give a general feeling for the kind of language extension that can be 
implemented with a modest amount of effort by someone reasonably familiar with 
the use of the M0RTRAN2 macro-translator [12], we shall describe the implemen- 
tation of some simple operations on matrices of REAL values. First, the syntax 
of the new features: 

Matrices are declared in the form: 



'MATRIX' {Fident '(' +Iconst V +Iconst ')'} 



Mh^l 



I I 



I . I 



and are modified by simple MATRIX assignments of the form: 

'SET' matrix ': = ' Mexpr ';' 
where Mexpr is one of: 

' ( ' Rexpr ' ) ' 
or 

{'S.'} ' 1 matrix {[' + ' | '*']{'$. <}° 91 matrix} ' 1 
The notation $.MAT shall indicate the transpose of matrix MAT and the paren- 
thesized real expression will be assigned to all positions of the matrix. 
Example : 
MATRIX A(5,10), B(10,10), C(5,10), D(10,5); 

SET A := (0); SET B := (1.0); SET C := (.5-X**2); 

SET A := A+C; SET D := $,A; 

SET C := A*B; 

SET B := $.C*C; 
We make no pretense that these facilities are completely satisfying for all 
possible applications. Furthermore, to simplify the implementing macros, we 
have suppressed all error checking (see [12] for examples of that). The follow- 
ing macros will provide the above matrix facilities. Note that text of the 
form %' ... '=' ... ' is a macro-definition which may appear anywhere in program 

text. 
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DEFINE '-.MATRIX #;' - n, ;REAL " $W2#l t ;« ; 
DEFINE '$n2#(# 9 #),' = 

■% f, $#l.l" = M #2 " 

%"$#!. 2" = M #3 " 

%"$$. #1.1" = " #3 " 

%"$$. #1.2" = " #2 " 

#1 ( #2 , #3 ), 



;%%2' ; 



DEFINE ',$%%2;» = '•' • 



» * 



DEFINE ';SET #:=#;' = 

M, ;"@LG@LSO" DO "@LCOO I0LCO2 "=" 1,$#1.2 
";DO" 0LCOO I@LC01 "=" 1 ,$#1 .1 ;$%%1#1 := #2; 
@LCOO CONTINUE ; ' ; 
DEFINE '$%%!#:=#; ! = 

' #1 (I@LC01,I@LC02) := #2 (IGLCOl ,I@LC02);@LUO' ; 
DEFINE '$%%1#;=(#);' = 

' #1 (I@LC01,I@LC02) := ( #2 );@LUO'; 
DEFINE '$%%l#:=#+#;' = 

' #1 (I@LC01,I@LC02) := #2 (I0LCO1 ,I@LC02) 
+ #3 (I@LC01,I@LC02);@LUO' ; 
DEFINE '$«%1 #:=#*#;' = 

'R0LCO4 := 0.0 ";D0"(3LC05 I@LC03 "=" 1 ,$#2.2; 
0LCO5 R@LC04 := R@LC04+ #2 (I@LC01 ,I@LC03) 
* #3 (I@LC03,I@LC02); #1 (I0LCO1 ,I@LC02) := 
R@LC04;@LU0'; 
DEFINE '$.#(#,#) ' = ' #1 ( #3 , #2 )' ; 

The replacement parts of these macro-definitions can be understood after 
a moderate amount of study of [12]. the full list of definitions is included 
here to indicate how little extra machinery is necessary to implement some use- 
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ful features. A similar example in [12] checks for errors and issues warnings, 



Other Uses qf DEFINE 

The small program INPOST, in Appendix E, contains some simple but very 
useful applications of the DEFINE text-substitution facility of SKOL inherited 
from MORTRAN. The program converts simple expressions with infix operators 
to the postfix notation using a temporary stack for operators and parentheses. 

The algorithm used to implement INPOST requires commands NEXTCH to obtain 
the next input character, STACK to push the current input character onto the 
stack, UNSTACK to move the top element from the stack to the end of the par- 
tially completed postfix string, and POP to discard the topmost element of 
the stack. An expression TOP is needed to inspect the topmost stack element. 

A character string 0PSTK(20) is used to implement the stack and strings 
CARD(80), LINE(120) for input and output. The above commands are then imple- 
by the following DEFINEs: 

DEFINE ' ;NEXTCH;\ = ';INCR IC; CH := CARD(IC);' ; 

DEFINE ';STACK;' = ' -.CATENATE CH ONTO OPSTK; NEXTCH;' ; 

DEFINE ' TOP ' = '0PSTK( LENGTH (OPSTK) ) ' ; 

DEFINE ';P0P;' = ' ;DECR LENGTH (OPSTK); ' ; 

DEFINE •; UNSTACK;' = ^CATENATE TOP ONTO LINE; POP;' ; 
and then the program is described in terms of these composite commands. Note 
that STACK employs the command NEXTCH and UNSTACK uses both TOP and POP. The 
clarity of the program would probably be enhanced by an additional command de- 
fined by: 

DEFINE ' ;PASS THRU;' = ^CATENATE CH ONTO LINE;NEXTCH; ' ; 
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Program IMPOST also uses the DEFINE facility to allow debug output to be 
incorporated into the program which will be erased or left intact, depending 
on a single DEFINE located at the top of the program. The keyword DEBUG is 
appended as prefix to any command which should only be generated when DEBUG 
mode is active and then the DEBUG mode is activated or deactivated by: 

DEFINE ' ;DEBUG ' = ' ; ' ; "ON" 
or 

DEFINE ';DEBUG #;' = ';' ; "OFF" 
The first DEFINE causes removal of all DEBUG prefixes and the second causes re- 
moval of all DEBUG-prefixed statements. 



Warnings 

FORTRAN demands that the symbolic names of variables, functions and sub- 
routines be restricted to no more than 6 letters or digits. In order to use 
longer names (possibly with embedded special characters) in SKOL programs, one 
should simply use the desired name (carefully delimited by blanks!!) in all 
specifications and uses of the variable, function or subroutine, and then in- 
sert a DEFINE before the first occurrence of the desired name; the definition 
should call for replacement of the blank-embedded name by a blank-embedded valid 
FORTRAN symbolic name. 

Example: 

DEFINE " $A_LONG_NAME ■ = ' REAL01 ' ; 

CONSTANT ARRAY_MAX_SIZE = 120 ; 

REAL $A_LONG_NAME ( ARRAYJIAX_SIZE ),X; 

X : = $A_LONG_NAME (J)+2.5 ; 
FOR I = 1 TO ARRAY_MAX_SIZE -1 : ... ENDFOR; 
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Notice that the constant ARRAY_MAX_SIZE does not require a DEFINE (FORTRAN 
will only see 120) but all occurrences must be blank-embedded just like the 
variables, functions and subroutines. 

The need to embed certain names in blanks is an embarassment caused by 
the lack of a lexical scanner in the MORTRAN translator. Given this annoyance, 
the best solution is probably to systematically embed all names in blanks. It 
is difficult to know exactly when the blanks are needed in the source program 
since occasionally the SKOL precompiler will put them in. For example, 

FOR I = 1 TO ARRAY_MAX_SIZE: 
will work but 

FOR I = 1 TO ARRAY_MAX_SIZE+1 : 
will not work! 

A run-time error message indicating a "collision in character mapping" 
means either a duplicate occurrence of the same character constant in the user- 
defined CHAR data-type or else that the character conversion scheme implemented 
by the SKOL subprograms in Appendix D does not work for the given machine/char- 
acter code/FORTRAN combination being used. 

Users are reminded to end all programs and all files included by %Ud cards 
by a terminator control card with %% in the first two columns. 

All SKOL statements are terminated by a semicolon and the programmer is 
strongly advised to carefully make sure that no semicolons are missing. The 
diagnostic capabilities of the SKOL precompiler are quite good so long as the 
program isn't missing statement terminators. Especially beware omission of 
the terminating semicolon for a DEFINE statement! 

The one place where semicolons are not wanted but might be mistakenly 
placed is after the END terminating a CASE group in a scalar or situation CASE 
statement. 
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A facRQ a n d FU NCTION for String Equality 

It is very convenient in some applications to be able to test for 
equality between two variable-length strings with a notation like 

EQUAL (STR1, STR2) 
which can be embedded in logical expressions. 

To this purpose we propose the* following macro DEFINE and supporting 
LOCIGAL FUNCTION: 

DEFINE' EQUAL(#,#)' = "EQU999( #1 , 

SIZE(#1), LENGTH(#1), #2 , SIZE(#2), LENGTH(#2))' ; 
FUNCTION EQU999(STR1 ,S1 ,L1 4 STR2,S2,L2)L0GICAL: 
"TEST EQUALITY OF TWO STRINGS" 
INTEGER S1,S2,L1,L2 S I; 
CHAR STRl(Sl), STR2(S2); 

UNTIL ALL_SAME OR MISMATCH: 

IF Ll-i= L2 : MISMATCH; ENDIF; 
FOR I = 1 TO LI : 

IF STRl(I)-i= STR2(I) : MISMATCH; ENDIF; 
ENDFOR; 
ALL_SAME; 
THENCASE: 

ALLJAME : BEGIN EQU999 := TRUE ; END 
MISMATCH : BEGIN EQU999 := FALSE ; END 
ENDUNTIL; 
RETURN; 
ENDFUNCTION; 

Each subprogram in which EQUAL is used must have the specification: 
LOGICAL EQU999 ; 
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APPENDIX A 
FQRMAI . SYffTAX OF SKQI . 



Aexpr = { sign } 0,1 {{{ Aprimary }7**, }^,*i i ■ /,] >r, + , i ,_,-] 



Aprimary = [ Aconst | '(' Aexpr ')' | Avar | Afunction '(•'{ arg },,')' ] 



action = [ initialization | assignment | invocation | interruption | selection | 
repetition | input-output | augmentation | allocation | focussing ] 

allocation = [ 'NEW* | 'FREE'] reference ';' 

arg = [ expr I array-name I function | subroutine ] 



array-bounds = '(' {+Iconst }, , ')' 



assignment = 

[ variable ':=' expr '; ' | '#' string ':=' string-expr '; 
'REPLACE' [ string-context | string ] 'BY' 

['NULL' | char-expr | string-context ] ';' | 
'DELETE' [ string | string-context ] ';' | 
'INSERT' [ char-expr | string-context ] 

[ 'BEFORE' | 'AFTER' ] string '(' index ')' »;' ] 



augmentation — 

[ 'CATENATE' string-expr 'ONTO' string ';' | 

[ 'INCR' | 'DECR' ] variable { 'BY' expr } 0,} ';' ] 



- Al 



block = { command } 



Cconst = '(''{{ sign I ' 1 Rconst }f , ')' 

9 



carriage-control - 

[ '$PAGE' | '$SKIP' | '$SKIP2' | '$0VER' ] 



char-const = "" [ non-'-char | ,M,M ] M 



1 1 



char-expr = [ char-const | char-var ] 

command = 

[ action | definition | format-declaration | pragmat ] 

common-declaration = 'COMMON' '/' Fident '/' 
{ Fident { array-bounds } ' }~, , ' ; ' 

control = [ { */' r 1 |{ flconst } 0,1 'X* ] 



data = '/' { ['{■'-' } 0,1 Aconst | Lconst | char-const | 'NIL' ] }f . 7 



data-format = 

[ { +Iconst } 0,1 [ 'I* | 'L' | 'A' ] +Iconst | 
{ sign}° 5l {Iconst 'P' J ' 1 { +Iconst } 0,1 

[ 'F' | 'G' | 'E' | 'D' ] +Iconst ',' lconst ] 
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definition = 

[ 'CONSTANT' { ident '=' value J* 1 , V | 

» 

'DEFINE' ""pattern "" ' = ' 

"" replacement M " ';' | 

'MACRO' ident '(' { ident { ' = ' Xexpr }° 51 K 1 , ')' 

» 

' = » MM text MM I.. ] 



exponent = , E 1 ' { sign l ' 1 { digit } 1,2 



expr = [ Lexpr | Aexpr | char-expr | •NIL' ] 



Fident = letter { [ letter | digit ] } -* 5 



Fident4 = letter { [ letter | digit ] }°«" 3 



Ftype = [ 'REAL' | 'INTEGER' | 'LOGICAL' | 'COMPLEX' ] 

field-group = [ 'REF' | Ftype | 'CHAR' ] ':' 

1 ?1 
{ ident { array-bounds } ' }, , 

» 

focussing = 'WITH' reference ':' block 'ENDWITH' ';' 

format-declaration = 'FORMAT' ident '=' '(' format-list ')' ';' 

format-list = { [control | data-format | output-text | 
+Iconst '(' format-list ')* ] )V . 



- A3 - 



Iconst = { digit }^ 



ident = [ letter | special -symbol ] 

{ [ letter j special -symbol | digit ] } 



index = [ +Iexpr | scalar-expr ] 

initialization = 

[ 'CHAR_SETUP' ';' | 

'MAKEAVAIL' class ';' | 

'START' process 'AT' coroutine ';' ] 



input-output = 

[ 'INPUT' '(' { [ ':' control [ variable ':' data-format ] }f 1 ,')' ';' | 
'OUTPUT' '(' { [ carriage-control | ':' control j output-item ] rf 1 , ')' '; 

[ 'READ' | 'WRITE' ] '(' file ',' format ')' { variable rf , ";' J 

> 

[ 'ENDFILE' J 'REWIND' | 'BACKSPACE' ] file •;' | 
[ 'READ' | 'WRITE' ] 'STRING' { '(' file ')' } 0,1 
string { '(* index '...' index ')' } 0,1 ';' ] 



interruption = 

[ 'STOP' ';' | 'PAUSE' ';' | 'RETURN' ';' j 
'SUSPEND' process ';' | situation ';' ] 
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invocation = 

[ 'CALL' subroutine { '(■'{ arg Yj ] , ')' } 0,1 ';' 
■EXECUTE' routine { '(' { Iexpr rf 1 , ')' } 0,1 «; 
'RESUME' process ';' | 
'RESUME' coroutine 'FROM' coroutine ';' j 
macro '(' { keyword '=' Xexpr rf 1 , ')' ';' ] 

Lconst = [ 'TRUE' I 'FALSE' ] 



Lexpr = {{ 'NOT' } 0J Lprimary >^ 0R .|. AND i] 



Lprimary = [ Lconst j ' ( ' Lexpr ' ) ' | Lvar j 

Lf unction '(' { arg }*J , ')' |'{ Aexpr }^ elop | 
'IN ' scalar '(' scalar-var ')' ] 



label = [ scalar-const j scalar ] 

length = non-negative-Iexpr 

list-of-subtypes = [ empty j '(' { subtype rf i ')' ] 

9 

output-item = [ output-text j 

variable { ':' { [ data-format | 'C ] }°> ] }° sl ] 

output-text = "" { [ non-'-symbol | """ ] f ] "" 



parameters = '(' { Fident K7 , ') 
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pragtnat = 



[ 'TRACE' { variable if 1 , ';' | 



RUNCHECK' '(' {{ '- 1 } ' 1 [ 'ALL' | 'FOR' | 
'CASE' | 'UNTIL' | 'TRACE' ] if 1 , ')' ';' ] 



process-declaration = 

'PROCESS' ident '=' '(' { ident if 1 , ')' '; 



program = { program-segment T terminator-line 



program-segment = 

[ 'MAIN' ':' segment-body 'ENDMAIN' ' ; ' | 
'SUBROUTINE' Fident { parameters } 0,1 ':' 

segment-body 'ENDSUBROUTINE' ';' | 
'FUNCTION' Fident parameters Ftype ':' 

segment-body ' ENDFUNCTION' ';' | 
'BLOCKDATA' ':' { specification }~ ] ' ENDBLOCKDATA' ';' ] 

Rconst = 

[ { digit }~ ] '.* { digit }~° { exponent } ' ] | 
{ digit} - exponent | '.' { digit }~ { exponent } ' ] 



record-class-declaration = 

'RECORD' 'CLASS' '(' +Iconst ')' 'OF' Fident4 ':' 
{ [ 'REF' | Ftype | 'CHAR' ] ':' 

{ ident { array-bounds I ' 1 if 1 , ';' 

T 1 'ENDRECORD' ';* 
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recursion-declaration = 'RECUR 1 '(' +Iconst ')' ';' 
{ ident { ' ('{'*' }f t ')' I ' 1 }*\ ';' 

relop = [ ' = ' j '-.= ' | •<•' | '>' | '<=' | ■'>=' ] 

repetition = 

[ 'REPEAT' { Iexpr 'TIMES' } 0,1 ':' block 'ENDREPEAT' ';' 
'LOOP' ':' block 'WHILE' Lexpr ':' block 'ENDLOOP' ';' | 
•FOR' Ivar '=' Iexpr 'BY' Iexpr ':' block 'ENDFOR' ';' | 
'FOR' Ivar '=' Iexpr { 'BY' Iexpr } 0,1 

'TO* Iexpr ':' block 'ENDFOR' ';' | 
'LINK' reference '=' reference 'BY' field ':' 

block 'ENDLINK' ';' | 
'DO' simplelvar '=' simplelexpr 'TO' simplelexpr ':' 

block 'ENDDO' ';' ] 

routine-definition = 

[ 'ROUTINE' ident { '(' { ident rf 1 , ')' } 0,1 

{ 'LOCAL' '(' { ident if 1 , ')' } 0,1 ':' 

» 

block 'ENDROUTINE' ';' | 
'COROUTINE' ident ':' block 'ENDCOROUTINE' ';' ] 

scalar-type-definition = 

'TYPE' ident '=' 1 ist-of-subtypes ' ; ' 



segment-body = { specification } { statement-function } 
{ command } { routine-definition } 
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selection = 



[ 'IF' { Lexpr ':' block ^riccTpi 

{ 'ELSE' ':' block I ' 1 'ENDIF' ';' | 
'UNTIL' { ident }^ RI ':' block 'THENCASE' *;' 

"{{ situation }^ ] , ':' 'BEGIN' block 'END' f ] 'ENDUNTIL' ' ; 

» 

'UNTIL' { 'GLOBAL' } 0,1 ident ':' block 'ENDUNTIL' ';' | 

'CASE' scalar-var ':' scalar 'OF' 

{{ label yf 1 , ':' 'BEGIN' block 'END' f } 
» 

{ 'ELSE' ':' 'BEGIN' block 'END' } 0,1 'ENDCASE' ' ; ' ] _ 



sign = [ '+' | '-' ] 

simplelexpr = [ +Iconst | simplelvar ] 

special -symbol = 

[ '$' | symbol-not-in-FORTRAN-set-and-not-: ;@"| 8n ] 

specification = 

[ definition j pragmat | format-declaration | 

scalar-type-definition | record-class-declaration j 
variable-declaration | process-declaration | recursion-declaration 
common-declaration j ' CHAR_C0MM0N ' ';' | 
'EXTERNAL' { Fident Ff 1 , ';' ] 



statement-function = 

Fident '(' { Fident }T\ ')' ' = ' Aexpr •; 



^1 . \. ■_. A I. I 
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string-const = ' ' " ' { [ non-'-char J " ' ' M ] f° ' ' ' ' 

string-context = string ' (' 

[ index { ',..' index } 0,1 | index '...' '|' length 

length '|' '...' index ] ')' 



string-expr = 

{ [ char-expr | string-const | string | string-context ] } l& i 



^1 
subscripts = '(' { Iexpr }, , ')' 



subtype = [ ident | char-const | ident '=' list-of -subtypes ] 

terminator-line = line-with-%%- in-first-two-columns 

text = { [ non-'@#-symbol | ' | '@0' | '##' ] f° 

value = [ Aconst | *(' '-' Aconst ')' | Lconst | char-const j 'NIL' ] 

variable = [ Fident { subscripts } ' J 

«(9' ■ (■ reference '.' field ')' | 'G' '.' field ' ' ] 

variable-declaration = 

[ 'STRING' { Fident '(' +Iconst ')' }^ , ";' | 
[ Ftype | scalar | 'REF' 'TO' class ':' ] 

{ Fident { array-bounds } 0,1 '{ data } 0,1 }^, ';' ] 

Xexpr = text-without-semicolons 
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APPENDIX B 

Syntax Flow Graphs for SKO L 

The following pages contain syntax flow graphs for a large part 
of the SKOL language. Those syntactic categories whose definition 
seemed to be readily understandable from the linear notation of 
Appendix A have been omitted. 
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Notes : 

1) Scalar, class, reference, field, subroutine, routine, process, 
coroutine, macro, keyword, situation, string, file, integer 
and format must be identifiers for objects of the type des- 
cribed by the word. 

2) Capital letters, I, R, L, C, A are codes for integer, real, logical, 
complex, arithmetic where the latter includes integer, real and 
complex. The character '+' means strictly positive. 

3) ?var, ?expr, ?function, ?const mean, respectively, variable, 
expression, function, constant of type ?, where ? is one of the 
built-in or programmer declared types. 
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APPENDIX C 
Control Commands for the SKOL Translator 

The translator can be controlled by lines with % in column 1, according 
to the following command formats in which no embedded blanks are allowed: 

Command Action 

%% Resume reading input characters from the previous file used 

for input. If current file was the first, then no more 
characters are read. 

%Ui or %Uij Start reading input from device given by decimal digit i 
or digits ij. 

%F Assume subsequent text is FORTRAN. 

%M Resume reading SKOL input. 

%Cij Read subsequent input from columns 1 through n where n is 
given by the two decimal digits ij. 

%A0 SKOL source text is not output as FORTRAN comments. 

%A1 SKOL source text is output as FORTRAN comments. 

!%A2 Each line of SKOL text is listed on two FORTRAN comment cards 

using columns 41-80. 

%Q0 SKOL comments must be between pairs of ". 

%Q1 SKOL comments are terminated by an end-of-line unless closed 

by " on the same line. 

%L Begin listing lines of SKOL text. 

%N Stop listing SKOL text. 

%E Start new page in SKOL listing. 

Default modes are %U1 , %M, %C80, %A0, %Q0, %N 
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APPENDIX D 

Character String Utility Programs 

The following seven subprograms are required for character and 
string manipulations. They will usually be installed on a file so 
that their inclusion into the user program requires only one control 
card. The declaration for the CHAR data type must precede the in- 
clusion of character utilities and both must lie outside other pro- 
gram segments (see examples in Appendix E). 
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"ROUTINES FOR BASIC CHARACTER SETUP AND INPUT/OUTPUT" 

ALSO STRING REPLACEMENT 

"THESE ROUTINES SHOULD WORK IF: 

" 1 MACHINE INTEGER ARITHMETIC IS 1-COMPLEMENT, 

2-CQMPLEMENT, OR SIGN-MAGNITUDE AND IS 

FULL WORDLENGTH. 

2 SIGN-BIT IS LEFTMOST IN WORD. 

3 A SINGLE CHARACTER READ INTO AN INTEGER UNDER' 

Al FORMAT IS LEFT ADJUSTED IN THE WORD WITH 

BLANK FILL. 

" 4 THE BIT REPRESENTATION FOR CHARACTER ZERO IN 

YOUR MACHINE'S CODE IS NOT ALL ZEROES. 
ii 

"ON CDC 6000 OR 7000 SERIES USE THE Rl FORMAT OF 

EXTENDED FORTRAN AND REIMPLEMENT THE CONVERSION 

" PORTIONS OF RDSTR9,WTSTR9,INIT99 AND INCV99. 
ii ' ' 

"PDP/11 ALSO REQUIRES SOME WORK. 

RUNCHECK(-ALL); 

"THESE 3 CONSTANTS ARE MACHINE DEPENDENT" 

" SHORT BYTE = 2**(BITS PER BYTE - 1} " 

CONSTANT SHORT BYTE=128,BTTS PER WORD=32,BITS PER BYTE=8; 

SUBROUTINE RDSTR9(NDEV, ARRAY7SIZ7N1 / N21: ~ ~ 

"READ ARRAY (N1...N2) FROM DEVICE NDEV AND CONVERT TO " 
INTERNAL CODES FOR CHAR. STRING LENGTH IS NOT SET." 




:H9(1) ,(T(1,1),INCH9(1,1)); 

" BYTE ) ; 
INTEGER I , J.W,WSTAR. INDTAB ,BUFFER("200 ) ,NCHAR; 
FORMAT STR999=(200AI); 

"READ RECORD OF CHARS INTO SUBARRAY" 
READ(NDEV.STR999) (FOR I=Nl TO N2:ARRAY(I) ) ; 
DO I=N1 T6 N2: 
W:=ARRAY(I); 

WSTAR: =IABS ( W) /BSHIFT+1 ; 
IF W < 0: 

INDTAB: =1; 
ELSE: 

INDTAB : =2; 
ENDIF; 

ARRAY] I ) : =T ( INDTAB , WSTAR ) ; 
IF ARRAY(I) = 0: 

CALL RUNERR( $CONVERT ); 
ENDIF; 
ENDDO; 
RETURN; 
ENDSUBROUTINE; 
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SUBROUTINE WTSTR9(NDEV, ARRAY, SIZ.N1.N2) : 

"WRITE STRING ARRAY (Nl. . .N2) ONTO DEVICE NDEV " 
" AFTER APPROPRIATE CONVERSION FROM INTERNAL " 

CHAR CODES TO Al FORMAT. 
INTEGER NDEV,N1, N2.SIZ, ARRAY (SIZ) ; 

CHAR COMMON; EQUIVALENCE (CQ ) ,OUTCH9(l) ) , (T(l,l) ,INCH9(1,1) ) ; 
INTEGER C( LAST (CHAR) ),T(2, SHORT BYTE ); 
INTEGER J, J.W,WSTAR, INDTAB, BUFFER (200 ) ,NCHAR; 
FORMAT STR999=(200A1); 
NCHAR: =N2-Nl+1; 
IF NCHAR < 1: RETURN; ENDIF; 
DO I=N1 TO N2: 

IF IN CHAR(ARRAY(I)): 
IF-X(ARRAY(I))-.= : 

BUFFER ( I-Nl+1 ) : =C (ARRAY ( I ) ) ; 
ELSE: 

CALL RUNERR( $CONVERT ); 
ENDIF; 
ELSE: 

CALL RUNERR( $CONVERT ); 
ENDIF ; 
ENDDO; 

WRITE (NDEV, STR999) (FOR 1=1 TO NCHAR sBUFFER(I)); 
RETURN; 
ENDSUBROUTINE; 

SUBROUTINE INIT99: 

"INITIALIZE CHARACTER CONVERSION TABLES" 

CHAR COMMON; EQUIVALENCEj[C( 1 ) ,OUTCH9 ( 1 ) ) . (T ( 1 , 1 ) , INCH9 (1,1)); 

INTEGER C( LAST (CHAR) ),T(2, SHORT BYTE |; 

INTEGER I , J , W,WSTAR, INDTAB , BUFFER (200 ) ,NCHAR; 

BSHIFT:=2**( BITS PER WORD - BITS PER BYTE ); 

DO 1=1 TO 2% ~ - - - 

DO J=l TO SHORT BYTE: 
T(I,J):=0; ~ 

ENDDO; 
ENDDO; 

DO 1=1 TO LAST(CHAR): 
IF C(I)-i= : 
IF C(I) < 0: 

INDTAB :=1; 
ELSE: 

INDTAB : =2; 
ENDIF; 

WSTAR: =IABS (C ( I ) j/BSHIFT+1 ; 
IF T (INDTAB, WSTAR )-i= 0: 

CALL RUNERR( $CHARD4AP ); 
ENDIF; 

T ( INDTAB , WSTAR) : =1 ; 
ENDIF; 
ENDDO; 
ENDSUBROUTINE; 

FUNCTION INCV99(CH) INTEGER: 

"COMPUTE INTERNAL CODE FOR CHAR CH READ BY Al FORMAT" 

CHAR COMMON; 

INTEGER CH , CHSTAR, IND ; 

CHSTAR: =IABS ( CH ) /BSHIFT +1 ; 

IF CH < 0: 

IND:=1; 
ELSE: 

IND:=2; 
ENDIF: 

INCV99 : =INCH9 ( IND, CHSTAR) ; 
IF INCV99 = 0: 

CALL RUNERR( $CONVERT ); 
ENDIF; 
ENDFUNCTION; 
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"STRING UPDATING ROUTINES" 

FUNCTION IRPL99(S,SIZ,LEN,I1,I2,T,K1,K2) INTEGER: 
"REPLACE S(I1...I2J BY T(K1...K2) AND RETURN " 
THE NEW CURRENT LENGTH OF S, " 
WHILE CHECKING THAT S DOES NOT OVERFLOW " 
ITS MAXIMUM SIZE, SIZ. 
INTEGER SIZ.S(SIZ),T(K2) ,SHIFT; 
SHIFT:=(K2-K1)-(I2-I1); 
IF SHIFT < 0: 

FOR 1=12+1 TO LEN: 

S(I+SHIFT):=S(I); 
ENDFOR; 
ELSEIF SHIFT > 0: 

IF LEN+SHIFT > SIZ: 

CALL RUNERR( $REPL ); 
ENDIF ; 
FOR I=LEN BY -1 TO 12+1: 

S(I+SHIFT):=S(I); 
ENDFOR; 
ENDIF ; 
FOR K=K1 TO K2: 

S(I1+(K-K1)):=T(K); 
ENDFOR; 

IRPL99 := LEN + SHIFT ; 
RETURN; 
ENDFUNCTION; 

FUNCTION IRPL98(S, SIZ. LEN, I1.I2.CH) INTEGER: 

"REPLACE S(I1...I2) BY THE SINGLE ELEMENT CH, " 
" OTHERWISE LIKE IRPL99 " 

INTEGER SIZ. S(SIZ), SHIFT, CH; 
SHIFT: =11-1 2; 
IF SHIFT < 0: 

FOR 1=12+1 TO LEN: 

S(I+SHIFT):=S(I); 
ENDFOR; 
ELSEIF SHIFT > 0: 

IF LEN+SHIFT > SIZ: 

CALL RUNERR( $REPL ); 
ENDIF ; 
FOR I=LEN BY -1 TO 12+1: 

S[I+SHIFT):=S(I); 
ENDFOR; 
ENDIF; 
S(I1):=CH; 

IRPL98 := LEN + SHIFT ; 
RETURN: 
ENDFUNCTION; 

FUNCTION IDEL99(S,SIZ,LEN,I1,I2) INTEGER: 

"DELETE S(I1...I2) AND RETURN THE NEW CURRENT " 
LENGTH OF S. 

INTEGER SIZ. S(SIZ), SHIFT; 

SHIFT: = -(I2-I1+1); 

FOR 1=12+1 TO LEN: 
S(I+SHIFT):=S(I); 

ENDFOR; 

IDEL99 := LEN + SHIFT ; 

RETURN; 
ENDFUNCTION; 

RUNCHECK(ALL); 

%L 
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APPENDIX E 
Sample Programs in SKOL 

This appendix contains four SKOL programs which are briefly 
described as follows: 

1. Generate the first 100 prime numbers. 

2. Build and print a perfectly balanced binary tree. 

3. Read and print listing of a stream of telegrams (see 
reference [15]). 

4. Convert simple expressions from infix to postfix 
operator notation (see pp 73-75 of reference [2]). 
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%L 

%A0 

" SKOL PROGRAM TO GENERATE PRIMES " 

RUNCHECK(-ALL) ; 

MAIN: 

CONSTANT NPRIME=100; 

INTEGER PRIME( NPRIME ), TRIAL , ITEST ,NXTPRM , IPR; 

PRIME (1): =2; PRIME (2): =3; 
FOR IPR=3 TO NPRIME: 

UNTIL FOUND_NEXT_PRIME: 

FOR TRIAL=PRIME(IPR-l)+2 BY 2: 

UNTIL IS_PRIME OR IS_COMPOSITE : 
FOR ITEST=2 TO IPR-1: 

IF MOD (TRIAL, PRIME (ITEST) ) = : 

IS_COMPOSITE; 
ELSEIF PRIME (ITEST) **2 > TRIAL : 

IS_PRIME; 
ENDIF; 
ENDFOR; 
IS_PRIME; 
THENCASE: 

IS_PRIME: 

BEGIN NXTPRM:=TRIAL; FOUND_NEXT_PRIME; END 
IS_COMPOSITE: 
BEGIN END 
ENDUNTIL; 
ENDFOR; 
ENDUNTIL; 

PRIME (IPR) :=NXTPRM; 
ENDFOR; 

OUTPUT ($PAGE, :5X, "THE ' f IPR: 14 , ' -TH PRIME IS ', PRIME ( NPRIME ):) 
ENDMAIN; 
%% 
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%L 

"PROGRAM TO BUILD PERFECTLY BALANCED BINARY TREE" 
SEE PROGRAM 4 . 3 ON PAGE 19 6 OF N. WIRTH'S NEW" 
BOOK ON ALGORITHMS + DATA STRUCTURES = PROGRAMS" 

TYPE CHAR=( ' ' , 'X 1 , ' . ' ) ; 
%U3 "INCLUDE CHAR FACILITIES" 

MAIN: 

PROCESS NEXT_NUMBER= (GETNUM) ; 

RECORD CLASS (30) OF NODE: 

INTEGER:KEY; REF :LEFT, RIGHT; 

ENDRECORD; 

REF TO NODE : NEWNOD, ROOT, T; 

INTEGER NUM, ARRAY (20) , I, DEPTH; 

STRING OUTLIN(50) , BLANKS (5) ; 

CHAR_COMMON; 

RECUR (100) :TREE(*) ,PRINT_TREE ( * , *) ; 

RUNCHECK(-ALL) ; 

MAKEAVAIL NODE; CHAR_SETUP; START NEXT_NUMBER AT GETNUM; 

DELETE BLANKS; REPEAT 5 TIMES: CATENATE ' ' ONTO BLANKS; ENDREPEAT; 

RESUME NEXT_NUMBER; 

DEPTH :=0; K:=l; 

LOOP: WHILE NUM >= K: INCR DEPTH; K:=2*K; ENDLOOP ; 

DECR DEPTH; 

"2**DEPTH < = NUM < 2** (DEPTH+1) " 

EXECUTE TREE (NUM) ; 

OUTPUT ($PAGE, :20X, 'INDENTED TREE' , :/, :$SKIP2) ; 

EXECUTE PRINT_TREE(ROOT,0) ; 

OUTPUT ($PAGE) ; 

RETURN ; 

COROUTINE GETNUM: "ALIAS FOR PROCESS NEXT_NUMBER" 
"DELIVERS NEXT INPUT VALUE IN GLOBAL NUM" 
REPEAT: 

INPUT((FOR 1=1 TO 20: ARRAY (I )): 2014) ; 
FOR 1=1 TO 20: 

NUM:=ARRAY(I) ; SUSPEND NEXT_NUMBER; 
ENDFOR; 
ENDREPEAT; 
ENDCOROUTINE; 

ROUTINE TREE(N) LOCAL (NL,NR,NEWNOD) : 

"BUILD BALANCED N-NODE BINARY TREE" 

"RETURNS REF TO TOP NODE IN GLOBAL ROOT" 

IF N = 0: 

ROOT:= NIL ; 

ELSE: 

NL := N /2; NR := N - NL -1; 

RESUME NEXT_NUMBER; 

NEW NEWNOD ; 

WITH NEWNOD: 

(3.KEY := NUM; 

EXECUTE TREE( NL );@.LEFT :=ROOT; 

EXECUTE TREE( NR );@. RIGHT :=ROOT; 

ENDWITH; 

ROOT:= NEWNOD ; 

ENDIF; 

ENDROUTINE; 
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' ONTO OUTLIN; 
ONTO OUTLIN; 



ROUTINE PRINT_TREE(T,H) : 

"PRINT BINARY TREE T WITH INDENTATION H" 
IF T = NIL: 

IF H <= DEPTH: 

DELETE OUTLIN; CATENATE ' 
REPEAT H TIMES: 

CATENATE BLANKS (1 ... 5) 
ENDREPEAT; 

CATENATE '.' ONTO OUTLIN; 
WRITESTRING OUTLIN; 
ENDIF; 
ELSE: 

WITH T: 

EXECUTE PRINT_TREE(@.LEFT 
DELETE OUTLIN; CATENATE ' 
REPEAT H TIMES: 

CATENATE BLANKS (1 ... 5 ) 
ENDREPEAT; 

CATENATE 'X' ONTO OUTLIN; 
WRITESTRING OUTLINE- 
OUTPUT ($OVER f : 60X, @ .KEY :); 
EXECUTE PRINT_TREE((§. RIGHT 
ENDWITH; 
ENDIF; 
ENDROUTINE; 



H +1) ; 

ONTO OUTLIN; 



ONTO OUTLIN; 



H +1); 



ENDMAIN; 
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%L 

TYPE CHAR= (ALPHABET* ,DIGIT= , ' * , ' * ' , V ) ; 

%U3 
%A2 

MAIN: 

"HENDERSON ET AL TELEGRAM PROBLEM, COROUTINE SOLUTION" 

RUNCHECK (-TRACE) ; 

CONSTANT OVERLENGTH LIMIT=5 , SPACE= ' 5 ; 

STRING TERMWD (4) ,NOCHRG (4) , SPACES (3) ; 

CHAR CTL; 

STRING WORD (10), LINE ( 31 ), BUFFER ( 80 ); 

INTEGER CWC,I,K.IBP; 

LOGICAL OW,EQU999; 

CHAR COMMON; 

DEFINE * EQUAL(#,#)'= ' EQU999 ( #1 , SIZE(#1), LENGTH(#1), 

#2 , SIZE (#2), LENGTH (#2)) ' ; 
PROCESS HENDERZAHN= (NEXT INPUT LETTER, NEXT INPUT WORD, 

TELEGRMJ*EADER,OUTPUT_LISTING) ; ~ ~ 

CHAR SETUP; 

IF SIZE (WORD) > SIZE (LINE) -1: 

OUTPUT* ($PAGE, 'WORDSIZE TOO BIG FOR LINE'); 

RETURN; 
ENDIF; 

START HENDERZAHN AT OUTPUT LISTING; 
RESUME HENDERZAHN; ~ 
RETURN; 

COROUTINE OUTPUT LISTING: 
#SPACES := ' 7 '; 
OUTPUT ($PAGE) ; 
UNTIL LAST TELEGRAM: 

REPEAT: - "EACH TELEGRAM" 

RESUME TELEGRAM READER FROM OUTPUT LISTING; 
IF LENGTH (WORD) =0: LAST TELEGRAM; ENDIF; 
OUTPUT ($SKIP2); ~ 
UNTIL END OF TELEGRAM: 

REPEATT ""EACH OUTPUT LINE OF TELEGRAM" 
#LINE:=' '; 

LOOP: "EACH TELEGRAM WORD" 
CATENATE WORD ONTO LINE; 

RESUME TELEGRAM READER FROM OUTPUT LISTING; 
IF LENGTH (WORD )^0: END OF TELEGRAM! ENDIF; 
WHILE LENGTH (LINE) + LENGTH (SPACES )+ LENGTH (WORD) 
<= SIZE (LINE) : 
CATENATE SPACES ONTO LINE; 
ENDLOOP; 

WRITESTRING LINE; 
ENDREPEAT; 
ENDUNTIL; 
WRITESTRING LINE; 

OUTPUT ($SKIP,CWC: 13,' WORDS CHARGED 1 ); 

IF OW: OUTPUT ( 'WORDLENGTH EXCEEDS ', OVERLENGTH LIMIT :I3) ; ENDIF; 
ENDREPEAT; ~~ 

ENDUNTIL; 

OUTPUT ($SKIP2 , ' ***** ' , :5X, ' ALL TELEGRAMS LISTED' , :5X, ' ***** ' ) ; 
SUSPEND HENDERZAHN; 
ENDCOROUTINE; 
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COROUTINE TELEGRAM READER: 

♦TEPMWD^'ZZZZ'T tNOCHRG^'STOP 1 ; 
REPEAT: "EACH TELEGRAM" 
CWC:=0; OW:= FALSE ; 
UNTIL TELEGRAM TERMINATED: 
REPEAT: "EACH WORD" 

RESUME NEXT INPUT WORD FROM TELEGRAM READER; 
IF EQUAL (WORD. TERMWD): ~ 

DELETE WORD; TELEGRAM TERMINATED; 
ENDIF; ~ 

IF NOT (EQUAL (WORD, NOCHRG) ) : INCR CWC; ENDIF; 
IF LENGTH (WORD) > OVERLENGTH LIMIT : CW:= TRUE ; ENDIF; 
RESUME OUTPUT LISTING FROM TELEGRAM READER; 
ENDREPEAT; ~ ~~ 

ENDUNTIL; 

RESUME OUTPUT LISTING FROM TELEGRAM READER; 
ENDREPEAT; ~~ — 

ENDCOROUTINE; 

COROUTINE NEXT INPUT WORD: 

RESUME NEXTTENPUTTLETTER FROM NEXT INPUT WORD; 
REPEAT: ~" ~ _ _ 

EXECUTE SKIP BLANKS; 
UNTIL END OF~WORD: 

FOR LENGTH (WORD) =1 TO SIZE (WORD): 
W0RD( LENGTH (WORD) ) := CIL; 

RESUME NEXT INPUT LETTER FROM NEXT INPUT WORD; 
IF CIL= SPACE : END OF WORD; ENDIFJ ~ 
ENDFOR; ~ ~~ 

WORD( LENGTH (WORD) ) := '*'; 
REPEAT: 

RESUME NEXT INPUT LETTER FROM NEXT INPUT WORD; 
IF CIL = SPACE : END OF WORD; ENDIF; ~ 
ENDREPEAT; "" 

ENDUNTIL; 

RESUME TELEGRAM READER FROM NEXT INPUT WORD; 
ENDREPEAT; _ ~ _ 

ENDCOROUTINE; 

ROUTINE SKIP BLANKS: 
UNTIL NOISHSPACE: 
REPEATT 

IF CIL ~= SPACE : 

NON SPACE; 
ELSE: _ 

RESUME NEXT INPUT LETTER FROM NEXT INPUT WORD; 
ENDIF; - ~ ~ ~ 

ENDREPEAT; 
ENDUNTIL; 
ENDROUTINE; 

COROUTINE NEXT INPUT LETTER: 
REPEAT : 

READSTRING ($ INPUT) BUFFER; 
FOR IBP=1 TO SIZE (BUFFER) : 
CIL:=BUFFER(IBP) ; 

RESUME NEXT INPUT WDRD FROM NEXT INPUT LETTER; 
ENDFOR; ~ ~ _ - 

ENDREPEAT; 
ENDCOROUTINE; 



ENDMAIN; 
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FUNCTION EQU999(STRl,Sl.Ll,STR2,S2,L2) LOGICAL: 
"TEST EQUALITY OF TWD STRINGS" 
INTEGER Sl,S2,Ll,L2,I; 
CHAR STR1 (SI) ,STR2 (S2) ; 

UNTIL ALL SAME OR MISMATCH: 

IF LI ~= L2 : MISMATCH; ENDIF; 

FOR 1=1 TO LI: 

IF STRl(I) ~= STR2(I): MISMATCH; ENDIF; 

ENDFOR; 

ALL SAME; 
THENCA3E: 

ALL SAME: BEGIN EQU999 := TRUE ; END 

MISMATCH: BEGIN EQU999 := FALSE ; END 
ENDUNTIL; 
RETURN; 
ENDFUNCTION; 
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%L 

"SKOL PROGRAM TO CONVERT INFIX TO POSTFIX" 

TYPE CHAR= (ALPHABET=, ' ' ,'(',') ' , ADD= ( '+' , '" '),'*') ; 
%U3 "INCLUDE CHAR UTILITIES'' 
MAIN: 

CHAR COMMON; CHAR CH; STRING CARD (80) , LINE (120) ; 

STRING OPSTK(20); INTEGER IC; 

DEFINE '; DEBUG #: '= '; ' ; RUNCHECK (-ALL) ; 

DEFINE ' ;NEXTCH:*= ';INCRIC; CH:=CARD(IC) ; ' ; 

DEFINE ' ; STACK ;* = '; CATENATE CH ONTO OPSTK: NEXTCH; 

DEBUG OUTPUT ( ' ' STACK* ' ) ; ' ; 

DEFINE ' TOP '= ' OPSTK ( LENGTH (OPSTK) ) T ; 

DEFINE ';POP;'= ' ;DECR LENGTH (OPSTK) ; ' ; 

DEFINE ';UNSTACK;'= ' ; CATENATE TOP ONTO LINE; 

DEBUG OUTPUT ( ' ' UNSTACK ' ' , TOP :C) ;POP; ' ; 

CHAR SETUP; DELETE LINE; CATENATE ' ' ONTO LINE; 

READBTRING CARD ; IC : =1 ; CH : =CARD ( IC) ; 

CATENATE CARD(1... SIZE (CARD)) ONTO LINE; 

WRITESTRING LINE; OUTPUtT$SKIP2) ; 

DELETE LINE; CATENATE ' * ONTO LINE; 

LOOP: WHILE CH = ' ' : NEXTCH; ENDLCOP; 

DELETE OPSTK; CATENATE ' (' ONTO OPSTK; 

UNTIL FINISHED: 

REPEAT: 

DEBUG OUTPUT (CH : C ) ; 

CASE CH:CHAR OF 

ALPHABET: 

BEGIN 

CATENATE CH ONTO LINE; NEXTCH; 

DEBUG OUTPUT ( ' PASS THRU ' ) ; 

END 

' (': BEGIN STACK; END 
i i « ) i . 

BEGIN 

IF TOP = ' ( ' : 

POP; 

IF CH = ' ' : FINISHED; ENDIF; 

NEXTCH; 
ELSE: 

UNSTACK; 
ENDIF; 
END 
ADD: 

BEGIN 

IF TOP = ' (': STACK; ELSE: UNSTACK; ENDIF; 
END 
«*« . 

BEGIN 

IF TOP = '*': UNSTACK; ELSE: STACK; ENDIF; 
END 
ENDCASE; 
ENDREPEAT; 
ENDUNTIL; 
WRITESTRING LINE; 

ENDMAIN; 

%% 
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APPENDIX F 
Sample Precompiler Diagnostics 

The following listing was produced by the SKOL compiler and 
illustrates most of the diagnostic facilities. There are notes 
after the listing to explain some of the less obvious messages. 
Appendix H should be consulted to decode the control error diagnostics 
"UNCLOSED x FOUND AT y" . 
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109. MAIN; 

110. "TEST OF SKOL DIAGNOSTICS" 

111. TYPE CHAR= (ALPHABET^ ('AVBVC'WEOL, TAB,' •)• 

112. CHAR CH; 

113. STRING STRl (20) ,STR3,STR4 (10) ; 

114. CONSTANT PI=3.l4,BAD,NDIM=2; 

115. Ill BAD CONSTANT DEFINITION BAD 

116. HZT TYPE COIX>R=(REDS= (RED, PINK), GREEN, BLUE, BLACK); 

117. COLOR HUE; 

118. SCAL1 SC1,SC2; COLOR: CI, C2; 

119. Ill UNEXPECTED COLON 

120. "IT" RECORD CLASS (N) OF WHAT: 

121. COLOR: CI; CHAR: CHI ;REF:LL,RL; 

122. Ill BAD TYPE COLOR IN FIELD LIST 

123. ~W~ ENDRECORD; 

124. REF TO WHAT:P,Q(4) ; 

125. REF TO NONO: P2; 

126. Ill RECORD CLASS NONO UNDECLARED 

127. ~T3~~ PROCESS XYZ= (AA.BB) ; 

128. RECUR(100):X1,X2(* ; 

129. 

130. MAKEAVAIL NONO; START XYZ AT XI; CHAR SETUP; 

131. Ill RECORD CLASS NONO UNDECLARED ~ 

132. Ill UNDECLARED COROUTINE XI 

133. "tr DELETE STRl; 

134. REPLACE STRl (1... 10) BY 'A' ; 

135 . MACRO MAC1 (KEY1=0 , KEY2) = ' ZZ : = KEYl ; Z2 ( KEY2 ) : = KEYl +1 ' 

136. UNTIL SI OR S2 OR S3: 

137. IF P: S4; ENDIF; 

138. DELETE SCI; CATENATE 'AB 1 ONTO STR2(1...3); 

139. Il l U NDECLARED STRING SCI 

140 . Il l U NDECLARED STRING STR2 (1 ... 3] 

141. Il l U NDECLARED STRING STR2 (1. . .3 

142. Il l U NDECLARED STRING STR2 (1. . .3 

143. Il l U NDECLARED STRING STR2Q...3 

144. Il l U NDECLARED STRING STR2Q...3 

145. Ill UNDECLARED STRING STR2 (1. . .3! 

146. ~0~ MAC1 (KEY2=3) ; 

147. MAC1(3.2 4)* 
148! Il l B AD KEYWORD PARAMETER 3.2 

149. Ill BAD KEYWORD PARAMETER 4 

150. Ill OBLIGATORY PARAMETER KEY2 MISSING 

151. ~W~ LOOP: 

152. I: =1+1: READ ( $INPUT, PERSON )LIST; 

153. Ill UNDEFINED FORMAT PERSON 

154. -Q- IF A = 0: REPEAT 7 TIMES: 

155. ENDLOOP; 

156. FOR 1=10 BY -1 DO BEGIN END; S2; 

157. Il l U NCLOSED D FOUND AT X 

158. Il l U NCLOSED Z FOUND AT X 

159. Il l M ISSING WHILE 

160. Il l B AD SYNTAX AT 1=10 BY -1 DO BEGIN END 

161. Ill UNEXPECTED BEGIN 
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162. THENCASE: 

163. S5: BEGIN WRITE STRING ($MYFILE)NON STRING; END 

164. Ill SITUATION LABEL S5 NOT DECLARED ~ 

165. Il l B AD $ 

166. Ill BAD SYNTAX 

167. Il l B AD 

168. Il l B AD SYNTAX 

169. Ill UNDECLARED STRING NON STRING 

170. Ill UNDECLARED STRING NON~STRING 

171. HZr SI, S3: 

172 . BEGIN J : = LENGTH (STR2 ) ; 

173. Ill UNDECLARED STRING STR2 

174. ~ET DO 1=1 TO 10 A:=0; ENDDO; 

175. Ill : = HAS HAD ITS : INTERPRETED AS COLON 

176. HZr IF SIZE(STR2) = 0: 

177. Ill UNDECLARED STRING STR2 

178. -0- STRl (2) :='?'; 

179. Ill UNKNOWN CHARACTER |?| 

180. "T ELSE: 

181. DELETE STR2; 

182. Ill UNDECLARED STRING STR2 

183. "TT INSERT ' + ' AFTER STRl ( SIZE (STRl)); 

184. Ill UNKNOWN CHARACTER |+| 

185. ~0- CATENATE EOL ONTO STR4; OUTPUT ( EOL: C) ; 

186. Il l U NDECLARED STRING STR4 

187. Ill UNDECLARED STRING STR4 

188. Ill UNDECLARED STRING STR4 

189. Ill CHAR EOL CANNOT BE OUTPUT 

190. HZr CASE I:SCAL2 OF 

191. Ill UNDECLARED SCALAR TYPE SCAL2 

192. Ill UNDECLARED SCALAR TYPE SCAL2 

193. Ill UNDECLARED SCALAR TYPE SCAL2 

194. ~0- 2:BEGIN END 

195. ELSE: 

196. BEGIN 

197. CASE CH: ALPHABET OF 

198. 'A', 'D': BEGIN END 

199. WHILE B <= N: A:=l; 

200. Il l C ASE LABEL AND BEGIN MISSING 

201. Ill UNCLOSED C FOUND AT A 

202. Ill UNCLOSED B FOUND AT A 

203. Il l U NCLOSED C FOUND AT A 

204. Il l U NCLOSED W FOUND AT A 

205. Il l U NCLOSED Y FOUND AT A 

206. Il l U NCLOSED T FOUND AT A 

207. Ill MISSING LOOP 

208. -0" LINK P=Q(2) BY NEXT: 

209. Ill BAD FIELD NEXT 

210. ~W~ END 

211. ENDCASE; 

212. Il l U NCLOSED J FOUND AT B 

213. Ill MISSING BEGIN 

214. T~ ENDIF; 

215. END 

216. ENDUNTIL; 

217. Ill MISSING IF 

218. Ill MISSING BEGIN 

219. ~W~ UNTIL A OR B: 

220. EXECUTE X2 (1,0. 4); 

221. Ill MISSING UNTIL 

222. Ill WRONG NUMBER OF PARMS FOR X2 

223. "IT" FOR A(I) TO N: K:=2; 

224. Ill BAD FOR PHRASE 

225. ~0- DO 7 TIMES: 

226. FOR 1=10 BY -1: 

227. ENDDO; 

228. Ill BAD SYNTAX AT 7 TIMES: FOR 1=10 BY -1: ENDDO 

229. Ill UNEXPECTED COLON 

230. - IT ENDUNTIL; 
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231. Il l U NCLOSED H FOUND AT I 

232. Il l U NCLOSED U FOUND AT I 

233. Ill MISSING DO 

234. ~W~ 

235. ROUTINE D: 

236. REPEAT J:=0; B:=3; UNTIL P < 1; 

237. Ill MISSING UNTIL 

238. Il l R OUTINE D DECLARED BEFORE AN EXECUTE 

239. Il l B AD SYNTAX AT? J:=0 

240. Ill BAD SYNTAX AT P < 1 

241. ~0~ IF IN REDSPECTRUM(Cl) THEN A:=0; 

242. Il l U NDECLARED SCALAR TYPE REDSPECTRUM 

243. Ill UNDECLARED SCALAR TYPE REDSPECTRUM 

244. Ill := HAS HAD ITS : INTERPRETED AS COLON 

245. TT OUTPUT X,XX; 

246. EXECUTE D; 

247. Ill ILLEGAL BACKWARD ROUTINE REF. D 

248. "IT" @(P.ZZ):=@(Q(2).CHl); 

249. Ill BAD FIELD ZZ 

250. HZr WITH Q(K): 

251. OUTPUT(@.CHl :C,@.XX ); 

252. Ill BAD FIELD XX 

253. ~0~ ENDWITH; 

254. OUTPUT (A: ,Z; 

255. Il l B AD SYNTAX AT A:,Z 

256. Ill UNEXPECTED COLON 

257. ~7T RESUME XYZ; 

258. 

259. COROUTINE AA: 

260. Il l U NCLOSED Z POUND AT G 

261. Ill UNCLOSED E FOUND AT G 

262. "IT NEW P3; FREE Q(l); 

263. Ill REF P3 UNDECLARED 

264. ~0~ N:=0; RESUME BB FROM AA; 

265. CASE HUE: COLOR OF REDS: BEGIN END ENDCASE; 

266. ENDCOROUTINE: 

267. Il l U NTREATED CASE VALUE 

268. Il l U NTREATED CASE VALUE 

269. Ill UNTREATED CASE VALUE 

270. -fr- 
ill. ROUTINE EFG: 

272. Ill ROUTINE EFG DECLARED BEFORE AN EXECUTE 

273. -QT INCR K; @ (SS3.LL) := NIL ; 

274. Ill UNDECLARED REF SS3 

275. -0- SUSPEND XYZ; 

276. ENDROUTINE; 

277. 

278. ROUTINE XI (P2) LOCAL (Z): 

279. RUNCHECK(-FOR,+CASEJ ; 

280. Ill WRONG NUMBER OF PARMS FOR XI 

281. ~0~ READSTRING CARD; 

282. Il l U NDECLARED STRING CARD 

283. Ill UNDECLARED STRING CARD 

284. -T2T IF IN DIGIT (CH) : 

285. Il l U NDECLARED SCALAR TYPE DIGIT 

286. Ill UNDECLARED SCALAR TYPE DIGIT 

287. -0" C:= VALUE(CH); 

288. Ill UNDECLARED SCALAR TYPE DIGIT 

289. ~W ENDIF; 

290. EXECUTE XI; 

291. EXECUTE A; 

292. RESUME EFG; 

293. Ill UNDECLARED COROUTINE EFG 

294. ~0- ENDROUTINE ; 

295. 

296. ROUTINE D: 

297. Ill ROUTINE D DECLARED BEFORE AN EXECUTE 
298 2 •= P2 • 

299! Ill PARM OR LOCAL OUTSIDE SCOPE 

300. Ill PARM OR LOCAL OUTSIDE SCOPE 
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301. MOVE STRl TO STR2(1. . .3) ; 

302. Ill UNDECLARED STRING STR2 

303. Il l U NDECLARED STRING STR2 

304. Ill UNDECLARED STRING STR2 

305. ~0- REPLACE STRl (3 I . . . 10) BY CH; 

306. Ill INCORRECT PLACE FOR STRING LENGTH 

307. Ill INCORRECT PLACE FOR STRING LENGTH 

308 . ~W~ DELETE STR3 (4 . . . ) ; 

309. Il l U NDECLARED STRING STR3 

310. Il l U NDECLARED STRING STR3 

311. Ill UNDECLARED STRING STR3 

312. ~W~ WRITESTRING OUTLIN; 

313. Ill UNDECLARED STRING OUTLIN 

314. Ill UNDECLARED STRING OUTLIN 

315. IT" ENDROUTINE; 

316. 

317. ENDMAIN; 

318. %% 
319 ^L 

320! $BLOCKDATA$ 

321. "END OF SKOL COMPILATION" $FINISH$ 

322 %% 

323 1 111 MISSING MAIN 

324. Ill ROUTINE OR COROUTINE BB NOT DEFINED 

325. Ill ROUTINE OR COROUTINE X2 NOT DEFINED 

326. Ill ROUTINE OR COROUTINE A NOT DEFINED 

327. Ill LABEL LEFT ON STACK 

328. Il l L ABEL LEFT ON STACK 

329. Ill LABEL LEFT ON STACK 

330. Ill LABEL LEFT ON STACK 
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Notes on Diagnostics ; 

Lines Explanation 

157-159 The IF statement and REPEAT statement on line 154 are 

not properly terminated and the WHILE phrase is missing 
from the LOOP: ... ENDLOOP; command on lines 151-155. 

160-161 The FOR statement on line 156 is incorrectly formed. 

164 The name S5 does not occur as a situation in the UNTIL 

phrase on line 136. 

165-170 The names $MYFILE and N0N_STRING have not been defined 

or declared. 

175 There is a missing : after 10 on line 174. 

179 '?' is not among the characters of CHAR defined on 

line 111. 

189 Characters denoted by identifiers may not be output. 

200-207 WHILE phrase on line 199 does not have a corresponding 

LOOP: in the previous lines. 

209 P has been declared as a reference to record class WHAT 

on line 124, but NEXT is not among the fields declared 
for WHAT on lines 120-123. 

212 LINK statement on line 208 not terminated. 

213, 217 Spurious messages caused by attempt to find LOOP corres- 

218 ' 221 ponding to WHILE on line 199. 

222 X2 is declared as recursive routine with one parameter 

on line 128, but invoked with two parameters on line 220. 
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231-233 FOR statement on line 226 not properly terminated; DO 

phrase on line 225 is incorrectly formed and is not 
recognized as matching the ENDDO on line 227. 

237 Spurious message caused by foulup on lines 225-227. 

244 THEN in line 241 should be colon. 

249 11 is not a field of record class WHAT to which reference 

P refers. 

252 @.XX is an abbreviation for @(Q(K).XX), Q is an array 

of references to WHAT, but XX is not a field in WHAT. 

260-261 IF on line 241 and ROUTINE on line 235 not terminated 

before COROUTINE on line 259. 

267-269 Three constant values of type COLOR (namely GREEN, BLUE, 

BLACK) defined in line 116 do not appear as case labels 
in line 265. 

280 Recursive routine XI declared without parameters in line 

128, but defined with one in line 278. 

299-300 Z and P2 are respectively a local variable and a parameter 

of recursive routine XI on lines 278-294. The occurrences 
on line 298 are outside the valid scope. 
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AhThNUlX (3 
FORTRAN Equivalent of Two SKQL Programs 

The following FORTRAN is the equivalent of the prime-generator SKOL 
program in Appendix E. 

INTEGER PRIME ( 100 ) , TRIAL, ITEST, NXTPRM, IPR 

PRIME (1)= 2 

PRIME] 2 = 3 

110263= 1 

110264= 100 

110265= 3 

IF((I10264-I10265)*I10263 .LT. 0) GOTO 10266 

IPR = 110265 

GOTO 10262 

10261 CONTINUE 

IF( IPR .EQ. I10264)GOTO 10266 
IPR = IPR +110263 

10262 CONTINUE 
110282= 2 

TRIAL = PRIME(IPR-l)+2 

GOTO 10283 
10281 CONTINUE 

TRIAL = TRIAL +110282 
10283 CONTINUE 

110313= 1 

110314= IPR-1 

110315= 2 

IF((I10314-I10315)*I10313 .LT. 0) GOTO 10316 

ITEST = 110315 

GOTO 10312 

10311 CONTINUE 

IF( ITEST .EQ. I10314)GOTO 10316 
ITEST = ITEST +110313 

10312 CONTINUE 

IF(( MOD (TRIAL, PRIME (ITEST)) ,NE. ) )GOTO 10331 
GOTO 10300 
GOTO 10321 

10331 CONTINUE 

IF (( PRIME (ITEST) **2 .LE. TRIAL ) )GOTO 10341 

GOTO 10290 
10341 CONTINUE 
10321 CONTINUE 

GOTO 10311 
10316 CONTINUE 

GOTO 10290 
10290 CONTINUE 

NXTPRM= TRIAL 

GOTO 10270 

GOTO 10351 

10300 CONTINUE 

GOTO 10351 
10351 CONTINUE 

GOTO 10281 
10270 CONTINUE 

PRIME (IPR) = NXTPRM 

GOTO 10261 
10266 CONTINUE 

10360 FORMAT ( 1H1 , 5X , 4HTHE , 14 , 13H-TH PRIME IS , Gl 
*2 5) 

WRITE ( 6 ,10360) IPR , PRIME ( 100 ) 

RETURN 

END 
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The following is the FORTRAN for the SKOL program to build and print a 
balanced binary tree given in Appendix E. 



INTEGER NODE0 

INTEGER NODE 1 ( 30 } 

INTEGER NODE 2( 30 ), NODE 3( 30 ) 

INTEGER NEWNOD, ROOT, T 

INTEGER NUM, ARRAY (20) , I, DEPTH 

INTEGER OUTLIN ( 50 ) ,110751, BLANKS ( 5 ), 110761 

COMMON/ CHCODE / OUTCH9 ( 3) , INCH9(2, 128 ) , BSHIFT 

INTEGER OUTCH9.INCH9, BSHIFT 

INTEGER S99999 ( 100 ) , T99999 /l/, B99999 /0/, RC9999 /0/ 

DO 10791 NODE0 = 1 , 30 

NODEl(NODE0)~ NODE0-1 
10791 CONTINUE 

NODE0= 30 

CALL INIT99 

ASSIGN 10720TO J10720 

ASSIGN 10720TO J10690 

110761= 

110802= 5 

IF(I10802.LT.1)GOTO 10801 

DO10811 110820=1,110802 

110761 =110761 +1 

BLANKS (110761)= 1 
10811 CONTINUE 
10801 CONTINUE 

ASSIGN 10830 TO 110690 

GOTO 10700 
10830 CONTINUE 

DEPTH= 

K= 1 
10841 CONTINUE 

IF(( NUM .LT. K ))GOTO 10851 

DEPTH = DEPTH +1 

K= 2*K 

GOTO 10841 
10851 CONTINUE 

DEPTH = DEPTH -1 

S99999 ( T99999 )= B99999 

S99999 T99999 +1 ) = 1 

T99999 = T99999 + ( 2 ) 

S99999 ( T99999 )- NUM 

T99999 = T99999 +1 

B99999 = T99999 -( 1+1) 

GOTO 10770 
10860 CONTINUE 
10870 FORMAT ( 1H1 , 20X , 13HINDENTED TREE , / , 1H- ) 

WRITE] 6 ,10870) 

S99999 ( T99999 )= B99999 

S99999 ( T99999 +1 )= 2 

T99999 = T99999 +( 2 ) 

S99999 ( T99999 )= ROOT 

T99999 = T99999 +1 

S99999 ( T99999 )= 

T99999 = T99999 +1 

B99999 = T99999 -( 2+1) 

GOTO 10780 
10880 CONTINUE 
10890 FORMAT ( 1H1 ) 

WRITE ( 6 ,10890) 

RETURN 

RETURN 
10720 CONTINUE 
10901 CONTINUE 
10910 FORMAT ( 2014 ) 

READ( 5 ,10910) ( ARRAY (I) , I = 1 , 20 ) 

110923= 1 



- G2 



110924= 20 

110925= 1 

IF((I10924-I10925)*I10923 .LT. 0) GOTO 10926 

I = 110925 

GOTO 10922 

10921 CONTINUE 

IF( I .EQ. I10924)GOTO 10926 
1=1 +110923 

10922 CONTINUE 
NUM= ARRAY (I) 

ASSIGN 10930 TO J10690 

GOTO 10710 
10930 CONTINUE 

GOTO 10921 
10926 CONTINUE 

GOTO 10901 

CALL RUNERR( 6) 

RETURN 
10770 CONTINUE 

T99999 = T99999 + ( 4- 1 ) „ _ _ 1/Brtri 

IF(( S99999 ( B99999 + 1) .NE. ))GOTO 10951 

ROOT= 

GOTO 10941 
10951 CONTINUE 

S99999 ( B99999 + 2) = S99999 ( B99999 + 1) /2 nnnnn , nn 

S99999 B99999 + 3) = S99999 ( B99999 + 1) - S99999 ( B99 
*999 + 2) -1 

ASSIGN 10960 TO 110690 

GOTO 10700 
10960 CONTINUE 

IF(( NODE0 .NE. ))GOTO 10981 

CALL RUNERR( 5) 
10981 CONTINUE 

S99999 ( B99999 + 4) = NODE0 

NODE0= NODEKNODE0) 

NODE 1( S99999 ( B99999 + 4) )= NUM 

S99999 ( T99999 )= B99999 

S99999 T99999 +1 )= 3 

T99999 = T99999 +( 2 ) 

S99999 ( T99999 1= S99999 ( B99999 + 2) 

T99999 = T99999 +1 

B99999 = T99999 -( 1+1) 

GOTO 10770 
10990 CONTINUE nn ^ tx x _ 

NODE 2( S99999 B99999 + 4) )= ROOT 

S99999 ( T99999 )= B99999 

S99999 ( T99999 +1 )= 4 

T99999 = T99999 +( 2 ) 

S99999 ( T99999 ) = S99999 ( B99999 + 3) 

T99999 = T99999 +1 

B99999 = T99999 -( 1+1) 

GOTO 10770 
11000 CONTINUE 

NODE 3( S99999 ( B99999 + 4) )= ROOT 

ROOT= S99999 ( B99999 + 4) 
10941 CONTINUE 

GOTO 99999 

RETURN 
10780 CONTINUE 

IF(( S99999 ( B99999 + 1) .NE. )) GOTO 11021 ,,„,., 

IF(1 S99999 B99999 + 2) .GT. DEPTH ))GOTO 11041 

110751= 

110751 =110751 +1 

OUTLIN (110751)= 1 

111052= S99999 ( B99999 + 2) 
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IF(I11052.LT.1)GOTO 11051 

DO11061 111070=1,111052 

110751 = IRPL99( OUTLIN , 50 ,110751, ((110751 )-( )+l), (11075 
*1 ) , BLANKS , ( 1 ) , ( 5 ) ) 
11061 CONTINUE 
11051 CONTINUE 

110751 =110751 +1 

OUTLIN (110751)= 3 

CALL WTSTR9( 6 , OUTLIN , 50 , 1 ,110751 ) 
11041 CONTINUE 

GOTO 11011 
11021 CONTINUE 

S99999 ( T99999 )= B99999 

S99999 T99999 +1 ) = 5 

T99999 = T99999 + ( 2 ) 

S99999 ( T99999 ) = NODE 2 ( S99999 ( B99999 + 1) ) 

T99999 = T99999 +1 

S99999 ( T99999 {= S99999 ( B99999 + 2) +1 

T99999 = T99999 +1 

B99999 = T99999 -( 2+1) 

GOTO 10780 
11080 CONTINUE 

110751= 

110751 =110751 +1 

OUTLIN (110751)= 1 

111092= S99999 ( B99999 + 2) 

IF(I11092.LT.1)GOTO 11091 

DO11101 111110=1,111092 

110751 = IRPL99( OUTLIN , 50 ,110751, ((110751 )-( )+l) , (11075 
*1 ), BLANKS , ( 1 ),( 5 )) 
11101 CONTINUE 
11091 CONTINUE 

110751 =110751 +1 

OUTLIN (110751)= 2 

CALL WTSTR9( 6 , OUTLIN , 50 , 1 ,110751 ) 
11120 FORMAT ( 1H+ . 60X ,G12.5) 

WRITE ( 6 ,11120) NODE 1( S99999 ( B99999 + 1) ) 

S99999 ( T99999 )= B99999 

S99999 ( T99999 +1 )= 6 

T99999 = T99999 +( 2 ) 

S99999 ( T99999 )= NODE 3( S99999 ( B99999 + 1) ) 

T99999 = T99999 +1 

S99999 ( T99999 )= S99999 ( B99999 + 2) +1 

T99999 = T99999 +1 

B99999 = T99999 -( 2+1) 

GOTO 10780 
11130 CONTINUE 
11011 CONTINUE 

GOTO 99999 
10700 GOTO J10690, (10720,10930) 
10710 GOTO 110690, (10830'l0960) 
10730 GOTO J10720, (10720) 
99999 CONTINUE 

RC9999 = 399999 ( B99999 ) 

T99999 = B99999 -1 

B99999 = S99999 ( T99999 ) 

GOTO (10860, 10880, 10990, 11000, 11080, 11130), RC9999 

RETURN 

END 

BLOCKDATA 

COMMON/ CHCODE / OUTCH9 ( 3) , INCH9(2, 128 ) , BSHIFT 

INTEGER OUTCH9 , INCH9 , BSHIFT 

EQUIVALENCE (C (1) ,OUTCH9 (1) ) 

INTEGER C( 3 

DATA C( 1)/ 1H /,C( 2)/ 1HX/,C( 3)/ 1H./ 

END 
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APPENDIX H 
Explanation of Control Error Diagnostics 

Errors in the use of SKOL control structures are diagnosed by messages 
of the form: 

UNCLOSED x FOUND AT y 
where x and y are single letter codes whose meanings are given below: 



UNCLOSED 


A 


means 


LOOP: 


ii 


B 


ii 


BEGIN (scalar case group) 


ii 


C 


" 


CASE ... OF 


n 


D 


ii 


REPEAT ... TIMES: 


ii 


E 


ii 


ROUTINE 


n 


F 


ii 


ELSEIF 


n 


G 


ii 


COROUTINE 


n 


H 


ii 


FOR... BY... 


n 


I 


ii 


DO 


ii 


J 


ii 


LINK 


n 


K 


ii 


MAIN 


n 


L 


ii 


SUBROUTINE 


ii 


M 


ii 


FUNCTION 


n 


Q 


n 


UNTIL (single situation) 


ii 


R 


ii 


WITH 


ii 


S 


" 


FOR... TO... 


n 


T 


n 


THENCASE 


n 


U 


ii 


UNTIL (multiple situation) 


ii 


V 


n 


REPEAT: 


n 


W 


ii 


ELSE 


" 


X 


ii 


LOOP 


ii 


Y 


ii 


BEGIN (sit. case group) 


H 


Z 


ii 


IF 


ii 


9 


n 


BEGIN (unexpected) 
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FOUND AT A means WHILE ,,, 




1 B ' 


END 




■ C ' ' 


ENDCASE 




' E • 


ROUTINE 




F 


ELSEIF 




G 


COROUTINE 




I 


ENDDO 




J 


ENDLINK 




K 


MAIN 




L 


SUBROUTINE 




M 


FUNCTION 




N 


ENDMAIN 







ENDSUBROUTINE 




P 


ENDFUNCTION 




R 


ENDWITH 




S 


ENDFOR 




T 


THENCASE 




U 


ENDUNTIL 




V 


ENDREPEAT 




W 


ELSE 




X * 


ENDLOOP 




Z 


ENDIF 




.2 


ENDCOROUTINE 




3 


ENDROUTINE 
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